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ABSTRACT 


Data is a very valuable corporate asset. How it is managed and 
controlled can often determine the success or failure of a corporate 
venture. With this fact in mind many organizations are taking a close 
look at what tools are available to help them in this effort. 

This thesis takes a look at two types of data management tools avail- 
able today, the Relational Data Base Management System (DBMS) and the 
Data Dictionary (DD). It discusses desirable DBMS and DD characteristics 
with particular attention being paid to the shortcomings of DDs. It 
also describes the effort of the National Bureau of Standards (NBS) to 
develop a DD standard and examines in detail the NBS Information Resource 
Dictionary System (IRDS) and how the standard was implemented in a prototype 
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I. INTRODUCTION 


A. BACKGROUND 
In the corporate world data is a very valuable resource. Many organi- 
zations spend a great deal of time and corporate assets trying to control 
it. Data is used to facilitate the management decision process by pro- 
viding the manager with timely, accurate and relevant information. Since 
the quality of the decisions made by today's managers is so important, it 
1s very critical that the corporate data resource be easy to access, as 
accurate as possible, and properly and effectively managed. [Ref. 1] 
Concern over corporate information resources has resulted from the 
explosive growth in the size, complexity and number of data bases available 
to managers. This data base explosion has also ushered in the need for 
better tools to manage the corporate data base. A critical software tool 
that has been developed to control and manage data is the Data Base Manage- 
ment System (DBMS). 
E. F. Codd has identified nine functions that the ideal DBMS should 
have (See Figure 1.1) [Ref. 2]. Kroenke states that 
DBMS products vary in the degree to which they provide these functions. 
Currently, no commercial DBMS provides all nine functions entirely 
satisfactorily. These functions are necessary and important, however, 
and this situation should change as DBMS products evolve and as new 
products are developed.  [Ref. 3] 
Of the nine functions listed in Figure 1.1, the one that is of particular 
interest to the Data Administrator (the individual who is responsible for 
the management of the data dictionary and for its effective use in the 


pursuit of data resource goals) is the function of providing a user-accessible 


catalog for data descriptions. 


B. OBJECTIVES 

The changes in today's end-user environment reflects the growth in 
computer literacy and increased need for data. Users are demanding in- 
creasingly better access to data via interactive processing, ad-hoc 
gueries, specialized reports and simpler man-machine communication. At 
the same time there is growing concern over the timeliness, validity, 
and relevance, and usability of the data that is available. 

As a result, there has been a growing interest in two tools which 
provide highly visible support for the information processing community- 
data dictionaries and relational data bases. Most relational data base 
products provide only rudimentary dictionary capabilities, "the offerings 
provide little more than a method of defining the schema." [Ref. 6] 

The relational data dictionary has become the link that connects the 
user/analyst with the DEMS. [Ref. 7] 

The relational data dictionary, that is the data dictionary normally 
provided with a relational DBMS has additional weaknesses besides the 
ones mentioned above: 

* They do not provide a full range of functions 


* Their ability to interface with more than one DBMS is limited 
or non-existent 


* There is a broad divergence concerning the scope of data dictionaries 
and until recently there has been no universally accepted standard 
(Ref. 8], [Ref. 9]. 

It is interesting to note that these problems apply to data dictionaries 


in general and not just to the relational variety. The purpose of this 


work is to create a prototype of a relational dictionary based on the 
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The usefulness of the catalog is greater if it contains not only data 
descriptions but also data about the relationship between programs 

and data, e.g., which programs access which data, and what they do 
with it. [Ref. 4] 


Store, retrieve, and update data 


Provide integrity services to enforce data constraints 


* 


Provide a user-accessible catalog of data descriptions 


Control concurrent processing 


Support logical transactions 
Recover from failure 


Provide security facilities 


Interface with communications control programs 


O © V O U A w N F 


Provide utility services 
Figure ON DBMS Functions 

The problem that arises is — some DBMSs have limitations on how 
well they maintain the meta-data (data that describes other data or 
data bases). Meta-data include descriptions of the meaning of data 
items, the ways in which the data are used: the sources of particular 
data elements: the physical characteristics and rules or restrictions on. 
their forms or uses. When the meta-data deals strictly with where data 
stored in the DBMS it is referred to as a Data Directory but this 
capability is not enough. The Data Dictionary (DD) system is an expansion 
of the DBMS description cataloging capability. The Data Dictionary sys- 
tem is a key tool available to the Data Administrator for the management 
of meta-data and information resources. The DD provides facilities for 
recording, storing and processing descriptions of and organization's 


data and data processing resources. [Ref. 5] 


11 


specified standards for dictionaries recently developed by the National 
Bureau of Standards (NBS). Chapter 2 discusses dictionary concepts 

in general and reviews functionality of existing dictionary capabilities 
with special attention on relational systems. Chapter 3 discusses the 
features and capabilities which form the basis of the NBS draft pro- 
posal American National Standards (dp ANS) Information Resource Diction- 
ary System (IRDS). Chapter 4 outlines and discusses the IRDS features 
that were selected for inclusion in the relational dictionary prototype 


and how those features were actually implemented. 


T2 


II. DATA DICTIONARY FUNCTIONS AND CAPABILITIES 


A. GENERAL 

The Data Dictionary (DD) is of great importance to the DBMS admini- 
strator and user because it allows the administrator to control how data 
and data bases are described and structured and it provides the link that 
connects the user to the DBMS. A data dictionary is a repository of data 
about data and processes associated with a particular system or 


organization. 


B. DBMS DATA DICTIONARY CAPABILITIES 

The data stored in a DBMS data base may be organized along hierarchical, 
network or relational lines. This organizational capability also exists 
for the data in the Data Dictionary, which in most cases is actually data 
stored in the DBMS itself. Data dictionaries implemented in this fashion 
are most often referred to as a DATA DIRECTORY (how the data is stored in the 
data base). On the other hand the implementation of a data dictionary can 
be on such a scale that it incorporates all of the data resources available 
to an organization. An implementation such as this is often referred to as 
INFORMATION RESOURCE MANAGEMENT. [Ref. 10] This thesis is most concerned 
with data dictionaries of the information resource management type. 

The DBMS acts as a librarian for the data base, storing and retrieving 
data according to a particular format [Ref. 11]. However, a DBMS does not 
necessarily provide for the security, integrity, accountability, or 
maintainability of that data. These objectives are best achieved when a 


data dictionary is used in conjunction with the DBMS [Ref 12]. 
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A DD is an instrument for describing an organization's meta-data. 
Meta-data refers to that data which describes other data or data bases 
and includes descriptions of the meaning of data items, the ways in which 
the data are used; e sources of particular data elements; the physical 
characteristics; and rules or restrictions on their forms or uses [Ref. 13]. 
There are additional capabilities that should be made available to 
the DBMS user as part of the data dictionary [Ref. 14]: 


l. Retrieval and analysis capabilities which assist the user in 
application development. 


2. The ability to generate pre-defined, customized and user defined 
reports via some type of report writer. 


3. The ability to extend the data dictionary as necessary to meet the 
DBMS user's unique needs. 


4. Data management tools that are intended to ensure the security, 
validity, recoverability and integrity of the data dictionary 
system and its associated data bases. 

5. Software interfaces that allow other software modules to access the 
data base via the dictionary and the capabilities of translating 
the meta-data into file definitions usable by the software. 

M. T. Vanecek described the capabilities listed above as those most im- 
portant from a DBMS auditor's standpoint but it is easy to see that they 
could apply to many types of users. [Ref. 15: pp. 15-16] 

P. P. Uhrowczik describes the capabilities listed above as being 
derived from the "management use mode." He goes on to identify additional 
DD capabilities that should be available to the DBMS user in what he 
calls the "computer use mode" [Ref. 16: pp. 332-334]: 

1. Data Mapping. Where the user is no longer concerned with what is 
sometimes called the "physical-equal-logical" environment. This is 
accomplished by removing the awareness of where data is stored 


and giving it to the DD. 


2. Data Conversion. During the mapping process, data can be converted 
to a different format. For instance, data physically stored as 
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character can be retrieved and converted to decimal. 


Data compaction. Data can be stored in a compacted form (encoded), 
but presented to the user in a more meaningful format (decoded). 


Input and output validation. Data entering a program (input) or 
data entering physical storage (update) can be checked against 
pre-established editing standards. For example, data can have a 
specified format, and lie within a specified range of values. 


Test-data generation. System-generated test data with characteristics 
as described in the DD can be presented to the user. 


Logical record and file definitions. A user is generally interested 
in processing only certain data elements forming a logical record 
and desires that these logical records be presented to him in a 
certain sequence. In Figure 2.1 the user defines his logical record 
as a series of element names and states his desire to process the 
file sequentially in a DEPT/MANNO sort sequence. The fact that the 
file comes physically from two different data sets is pre-defined in 
the DD/D. Thus the system can deliver the logical records properly 
assembled in the requested sequence. The user and the program do 
not need to know about the two data sets that are required to produce 
the view. 


JCL Generation. Job Control Language (JCL) statements for physical 
data sets can be automatically generated as required by the particular 
operating system in use. This not only eliminates the user's pre- 
occupation with JCL, but also facilitates migration to different 
operating systems. 


Access to distributed data bases. Data bases or portions of data 
bases may be physically stored in different locations on different 
computers, linked via data communication facilities. The data 
directory located with each distributed data base would describe 

the physical data located at that site, as well as, physical data 
located at other sites. The DBMS can decide based on the information 
provided by the DD whether to satisfy the request locally or from 

a remote location. 


DATA DICTIONARY CAPABILITIES 

The capabilities listed above describe the data dictionary capabilities 
that should be available to any DBMS user. However this view of the desired 
data dictionary capabilities is limited, since it perceives the data diction- 
ary as an extension of the DBMS itself and not as a true data dictionary. 


It is possible, on the other hand, to view the data 
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dictionary as an entity unto itself whether it is from standing or 
DBMS dependent. The capabilities and functions shown in Figure 2.2 
and described below represent a joing of the capabilities and functions 
described by Allen et al [Ref. 17: pp. 248-253] and Lefkovits et al 


[Ref. 18: pp.2-7 thru 2-29]. 


l. Dictionary Schema 


Denotes the structure of the dictionary. Both sources agree that, 
at a Minimum, a DD should allow for the definition of Entities, Relation- 
ships and Attributes. Entities are the basic unit of the dictionary and 
represent real world objects or things about which certain information 
exists in the dictionary. Relationships provide information about associa- 
tions between entities whereas attributes provide information about 
entities and relationships that exist in the dictionary. Figures 2.3 


and 2.4 show examples of commonly used entities and relationships. 


Data Dictionary Maintenance 
schema 
Entity-types 
Attribute-types 
Relationship-types 
User Dialogue 
Dictionary Commands 
Extensibility 
Status Facilities 
Report Processor 
Query Processor 
Convert Function 
Software Interface 
Data Management 
Security 
Integrity 
Concurrent Control 
Internal access to DD 


Figure 2.2 Data Dictionary Capabilities 


Entity names should be unique but facilities to track duplicate 


names in the form of aliases or synonyms hould be provided. Additionally, 
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the DD should allow a minimum of three groupings of entity-types: 
Data-Element, Processes, and Usage. 

The dictionary system should also provide a means of grouping 
together dictionary elements that have the same characteristics. This 
can be accomplished through the establishment of Entity-types, Relation- 
ship-types and Attribute-types. It can also be accomplished through the 
establishment of a Key-word In-context feature. Neither author provided 
specific examples of atribute or relationship types. Both did agree that 
most DD provide enough attribute-types and relationship-types to meet 
the average user needs. In addition they identified the extensibility 
feature which would allow a DD user to expand the DD to meet his indivi- 


dual requirements. 
2. User Dialogue 
The method used by the DD to communicate with the user and vice 
versa. 
a. keyword-driven language 
b. position-sensitive transactions 
C. interactive, prompted input 
d. interactive, performatted screens or menus 
3. Dictionary Commands 
Pe user with the ability to use the DD system to its fullest 
extent. Dictionary commands can be divided to the following categories. 
a. Dictionary Maintenance Commands 
Those commands that allow entities, relationships, and 


attributes to be created, modified and deleted from the dictionary. 


U. 


b. Report and Query Commands 
Those commands that allow the user to request the system 
to generate listings of entities, relationships and attributes and generate 
queries on such things as the usage of dictionary entities, keyword and 
synonym searches. 
c. Data Structure Interface Commands 
These commands give the DD system the ability to generate 
descriptions of data structures in such a way that they can be processed 
by other language processors, such as language compilers or DBMS 
schema/subschema utilities. 
d. Extensibility Commands 
These commands are discussed in 4 below. 
e. Status-related Commands 
Will be discussed in 5 below. 
f. Security Commands 
These commands provide the system with the ability to exclude 
some users from access to the system or restrict his ability to modify 
and change the system. 
8. Dictionary Processing Control Commands 
These commands allow the user to perform such functions as 
log-on, log-off, terminate operation upon error, etc. 
h. Dictionary Administrator Commands 
These commands will allow the dictionary administrator to: 
* initially create the dictionary system 
recover the dictionary after a failure 


* set default values 
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* create back-up copies of the dictionary 
4. Extensibility 
A feature that allows the DD structure to be extended by 
definition of additional entities, relationships, and attributes. 
5. Status Facilities 
Allows the dictionary system to be used in a System Life Cycle 
environment, that is the system would allow for the designation of an 
entity as being "Under Development," "Production" or "Archive" for 
example. 
6. Report Processor 
This capability allows the user of the DD system to produce 
predefined reports, the ability to customize reports and produce 


user-defined reports. 
7] Envy Processor 
This capability would give the DD user the ability to generate 
English-like queries of the system. This query capability is analogous 
to the corresponding function in DBMSs for access to data bases. 
8. Convert Function 
This function allows the DD system to read application programs, 
libraries and schemata and generate DD maintenance input transactions to 
automatically create a DD schema. 
9. Software Interface 
This capability provides a formatted pathway, enabling the DD 
system to provide meta-data to other software systems such as compilers. 
10. Data Management 
This function would provide for the data base management tasks 


such as: 


D 


* Security 

* Integrity 

& Concurrent control 

* Internal access of the DD 

Not all data dictionary systems possess the capabilities listed 

above in fact, early data dictionary systems were little more than docu- 
ment generators, taking the meta-data that had been stored in them and 
printing out reports describing file and record structures. Other DD 
which are DBMS-dependent obtain the capabilities listed above from the 
DBMS they are associated with. Unfortunately even DBMS products that 
are currently being marketed are limited in the data dictionary 
capabilities they offer and very few if any offer what could be classified 
as information resource dictionary systems. In addition to the limited 


DD capabilities associated with DBMS, the additional problem of lack of 


standardization exists. 


D. ADVANTAGES OF DATA DICTIONARIES 


The main advantage of a dictionary lies not in its ability to store 
and catalogue information about data, but in its ability to assist in 
the discipline of data design [Ref. 19]. 


This advantage can be expanded into a number of beneficial areas: 


1. Information about data/corporate asset. Accurate information about 
how a company functions, about its employees and clients can be 
stored in a DBMS and defined in a data dictionary. By storing 
this knowledge on a magnetic media and providing for adequate 
backup and recovery to the data dictionary, the corporate asset 
is being saved from catastrophe. 


2. Public vs. Private Information. The situation where only a pro- 
grammer knows all of the information (institutional knowledge) about 
a particular application, can cause many problems not only for those 
who must pick up a project in mid-stream, but even for the programmer 
himself if it has been several months since he last worked 
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on the application. By incorporating his institutional 

knowledge about each application into a data dictionary as 

each new application is developed, the information becomes public 
knowledge for the application developer and anyone who follows 
him. This will substantially reduce the effort required to 
modify and enhance existing applications. 


3. Communication tool. The data dictionary can become a repository 
of corporate information, i.e., minutes of meetings, memos, notes, 
manuals and reference texts, which can be accessed by all areas of 
a company. The central area of Figure 2.5 represents the communi- 
cations value of a data dictionary. 
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Figure 2.5 Communication Value of a Data Dictionary 


4. Safeguard against Data Redundancy. Old systems are difficult to 
maintain because of lack of information, process redundance and 
data redundancy. Information availability has been discussed above. 
Process redundancy can be reduced through structured programming 
techniques. Data redundancy however requires a different approach. 
Data redundancy is a Situation where the same data element pro- 
liferates throughout the system. 


It is not uncommon in an older system to find the same data element 
stored in ten different locations and reguiring ten different update 
transactions to maintain it. This same data element may be referenced 
by 50 different names through the system. Is it any wonder that such 
systems are difficult to maintain. (Ref. 20] 


Listed below are various types of data redundancy: 
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a. Reference Redundancy - when the same data element is 
referenced by different namnes. 


b. Format Redundancy - when the same data element appears in the 
system in different formats. 


c. Group Redundancy - when data elements are grouped under a group 
name when no requirement exists from them in the first place. 


d. Occurrence Redundancy - when repetitious data names are used to 
identify multiple generations of the same data element. 


e. Definition Redundancy - when a data element is used for more than 
one purpose thus the element has more than one definition. 


f. Storage Redundancy - when the same data element is stored in more 
than one location (redundancy of this type, sometimes serves a 
purpose, in distributed systems for example). 


These as well as other types of redundancy not mentioned can be controlled 
through the use of a data dictionary. 


5. Glossary of Terms. Another benefit of implementing a data diction- 
ary is to use it as a glossary of terms. Which could be used in the 
development of software and as a training tool. 


The data dictionary can be very effective when used as a tool to 
support structured analysis and design. It can be used to document 
data store, data flow, and process entity types. The data dictionary 
can also be used to generate, file segment, and record definitions 
for a variety of programming languages. By doing so, we can cen- 
tralize the control of program data definitions. [Ref. 21] 


6. Documentation. The data dictionary can serve as an effective 
medium for the presentation of documentation. The nature of a 
data dictionary makes maintenance of documentation easier and 
anyone who has access to a computer terminal can subsequently 
access the documentation. | 


7. System development. The "data dictionary is one more tool to in- 
crease user effectiveness in system development." [Ref. 22] the 
traditional approach to systems development (see Figure 2.6) can 
be enhanced to allow all involved in the development process, 
access to the necessary information as it is generated. (see 
Figure 2.7) This is accomplished by incorporating the DD into the 
traditional development network. 


All of the capabilities and benefits listed above are important, but 
very few if any data dictionary systems available today can provide them 


all. In other words there is no current standard from which all data 
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Figure 2.6 Systems Development Traditional Approach 
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Figure 2.7 Expanded System Development Approach 
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dictionary products are developed. This situation is in the process of 
being eliminated now that the National Bureau of Standards (NBS) has 
formalized and published a standard for data dictionaries in the form 

of the Information Resource Dictionary System IRDS) standard. The feature 


and functions found in that standard are discussed in the next chapter. 


E. EXISTING DBMS DATA DICTIONARY CAPABILITIES 

As stated earlier very few DBMSs contain DDs that exhibit all the 
capabilities discussed above and even fewer Relational DBMSs offer the 
previously identified minimum DBMS dictionaries capabilities. Tables 2.1 
thru 2.3 list the DD capabilities provided by the INGRES and ORACLE DBMS 
products. It is easy to see from the list above that the dictionary 
capabilities provided by ORACLE and INGRES are very limited from the stand- 
point of offering full data dictionary capabilities. 

But what alternatives exist to improve this situation? The NBS IRDS 
standards offers a convenient vehicle to improve this situation. By 
adopting this standard as an industry-wide starting point, all products 
that use data dictionaries and the data dictionary itself will improve. 


The next chapter discusses the NBS IRDS standard in detail. 
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LACNE 2.1 


DBMS DICTIONARY CAPABILITIES 


CAPABILITY | INGRES ORACLE 
Data Dictionary Maintenance P P 
Schema K * k * kk Kk X 
Entity-types 2 L A 
Attribute-types L L 
Relationship-types L A 
User Dialogue KOTA "aa 


Keyword-drive 
Position-sensitive Trans 
Interactive 

Prompted input 


Preformatted screen 


= zs E 
zz dz el a= 


Menus 


Facility/capability availability = A 
Facility/capability available but limited 
Facility/capability not available = N 
| C jl capability as part O&eDEMS only = F 


il 
Ea 
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TABLE 2.2 
DBMS DICTIONARY CAPABILITIES 
CAPABILITY | INCRES ORACLE 


Dictionary Commands kkkk k k* x 
Maintenance : 
Add 
Modify 
dest 


Report 


agh C [C ho 


Query 

Data Structure interface 
Extensibility 
Status-related 


Security 


Z. "Go Z JA A. EA e 


o. U 41v 


Processing control 


Facility/capability availability = A 
Facility/capability avallaBie LH — Vv 
Facilitycapability not available = N 
Facility/capability as parte o POEN Eom == 
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BLE 2,3 


DBMS DICTIONARY CAPABILITIES 


CAPABILITY INGRES ORACLE 
Administration A A 
Extensibility i N P/L 
Status Facilities N N 
Fenort Processor P P 
Ouery Processor p P 
Convert Function A N 
Software Interface P P 
Data Management L P/L 
Security P P 
Integrity N P 
Concurrent Control N N 
Internal access to DD N L 


Facility/capability availability = A 
Facility/capability available but limited = L 
Facility/capability not available = N 
Facility/capability as part of DBMS only = P 
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III. INFORMATION RESOURCE DICTIONARY SYSTEM 


This chapter discusses the features and characteristics which form 
the basis of the draft proposal American National Standards (dp ANS) Infor- 
mation Resource Dictionary System (IRDS). The chapter that follows will 
outline which of these features were chosen for incorporation into the 


Prototype IRDS. 


A. BACKGROUND 

As the world's largest user of information processing technology, the 
U. S. Government depends on this technology to carry out Government-wide 
programs and deliver essential pubiic services. As with most new technolo- 
gies Data Dictionary/Directory Systems (DD/DS) were being developed by 
numerous software suppliers each from a different set of standards. Since 
it is estimated that the federal government could save "$120 million in 
benefits by the early 1990s from use of a standard (IRDS)" [Ref. 23], the 
American National Standards Institute (ANSI) and the National Bureau of 
Standards (NBS) of the United States Department of Commerce were prompted 
to initiate efforts to develop standards for dictionary systems. To this 
end the ANSI committee for Information Systems (X3) convened a Technical 
Committee X3H4 to develop the standard for an IRDS in 1980. NBS at the 
same time established a similar committee to develop the "Federal Information 
Processing Standards for Data Dictionary Systems" (FIPS DDS). 

Although the ANSI X3H4 and the NBS committees used different titles 
for standards they were developing, the two groups had identical goals 
and similar development approaches. The two efforts came together with the 
adoption of Proposal A83-020 in August 1983. The proposal called for the 
acceptance of the draft FIPS DDS as the Base Document for any further 
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development of IRDS standards and has since been developed into the 


dp ANS IRDSs [Ref. 24], [Ref. 25], [Ref. 26], [Ref. 27]. 


B. 


key 


IRDS DESIGN OBJECTIVES 
When specifications for the standard IRDS were being developed three 


objectives were always in the forefront of consideration. They were: 


The IRDS should contain the major features and capabilities found 
in existing Data Dictionary Systems. 


The IRDS should be modularized to promote ease of implementation 
and cost efficient development. 


The IRDS should support portability of skills and a wide range of 
user environments. 


In pursuit of this goal the Institute for Computer Science and 


Technology of the National Bureau of Standards took the following steps: 


* 


Preparing and disseminating the Prospectus for Data Dictionary Sys- 
tem Standard [Ref. 28] in 1980. This document discussed the use of 
Data Dictionaries and plans to develop a FIPS standard. 


Conducted a Data Base Directions workshop in October, 1980 that in- 
vestigated how managers can evaluate, select, and effectively use 
information resource management tools, in particular data dictionary 
systems. 


Conducted interviews with government employees that were knowledgeable 
in the area of data dictionaries to determine current and future re- 
quirements for data dictionary systems. The Federal Requirements for 
a Federal Information Processing Standard Data Dictionary System 

[Ref. 29] was published as a result of those interviews. 


Conducted numerous workshops for users and vendors between 1982-84 
to obtain feedback on previously published documents. 


Developed a functional specification for the development of a data 
dictionary standard [Ref. 30]. 


Prepared and disseminated in August 1983 the draft specifications for 
the planned Federal Information Processing Standard for Data 
Dictionary Systems, the document that later became the baseline 
standard. 


Outgrowth of Existing Systems 


All vendors who were marketing developed IRDSs or were developing 


IRDS were asked to review the proposed IRDS specification and make 
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recommendations and suggestions on what should be included in or excluded 
from the draft standards. Many of their recommendations were subseguently 
included in the draft specifications. 

2. Flexibility 

The proposed IRDS includes a "CORE" dictionary system (which is 

the basis for the prototype to be discussed in Chapter 5) plus three 
modules. The modules are designed to interface with the core system but 
be independent of each other so that any or all of the modules can be 
implemented with the core system when desired. To provide additional 
flexibility, capabilities are specified in the core IRDS that allow 


organizations to customize or extend the IRDS as required. 


- 


3j. Portability TORES KANE] 


The core IRDS contains two user interfaces: a menu driven 
"Panel" interface and a command language interface. The panel interface 
allows the system to be used by the inexperienced user. It incorporates 
a series of interrelated screens that guide the user through the system. 
The command language interface on the other hand is designed to allow 
the more experienced user to access the system without viewing the 
panels. The command language interface may be used in a batch or interface 
mode. 

An implementation of the IRDS standard is considered complete if 


either of the interfaces are implemented. 


C. IRDS DATA ARCHITECTURE 
This section presents an overview of the framework in which IRDS data 


1s organized and presented to the user. 
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1. Framework 


ane TRS standard is Specified in terms of entities, 
relationships, and attributes (see Figure 3.1). 


An IRDS entity represents or describes a real world concept, person, 
event, or quantity, but is not the actual data that exists in an 
application file or data base. [Ref. 31] 


A relationship is an association between two entities. An attribute 
represents a property about an IRDS entity of relationship as the IRDS 
also allows relationships to have attributes. Relationships in the 
Core IRDS are binary, denoting that an association exists between two 
entities in the IRDS. 


The Core system was restricted to binary relationships because (1) the 
vast majority of current implementations use binary relationships and 
(2) it was desired that the Core system be simple enough to implement on 


microcomputers. 


Sm wom eve ENTITY TTFE = SYSTE 
ASCAD Database Update 
WITH ATTRIBUTES 
DESCRIPTION (START = 108 IMCREMENT = 18) 


i "This subsystem provides the capability for 
the staff to update the contents of the 


ASCAD Database.", 
SYSTEM-CATEGUFRY = "subsystem", 
SECURITY = datamar"; 


Figure 3.1 Sample Entity Representation 


An important aspect of the IRDS standard is the concept of TYPE 
which is used as a way of classifying entities, rolationships and sttri- 


butes. Different attributes have different meanings, for example the 
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length of Payroll-Number or number Gt T or dme 
different. But these attributes may appear Many times in relationship 
to other entities, length of name, length of address or number-of-fields 
in an Accounts-Payable record. The IRDS standard handles this situation 
by declaring that each attribute is a specific type called an 
"attribute-type." Thus there are attribute-types called length and 
number-of-fields. 

The concept of types is extended to the IRDS relationship and 
entity in the form of "relationship-types" and "entity-types" see 
Appendix A. 

Relationships within the IRDS can also have attributes, for example 
the relationship in Figure 3.1 between Payroll-Record and Payroll-Number 
could have position attribute-type with a value of 3 indicating that the 
Payroll-Number appears as the third element in the Payroll-Record. 

The IRDS standard also allows for ordered sets of attributes 
called attribute-groups. This capability was incorporated into the 
standard because individual attribute-types don't always convey the com- 
plete message about an entity. An example of this might be the allow- 
able-range of an entity. The allowable range has a high value and a low 
value which a singular attribute would not be able to convey. An attri- 
bute-group on the other hand would be able to convey this information 
quite easily. 

2. IRDS Schema 

The IRD schema describes the structure of the IRD. Thus for 

every entity, relationship, attribute and attribute-group that can exist 


in the IRD, a corresponding description of the entity-type, relationship-type, 
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attribute-type and attribute-group-type must exist in the IRD 

schema. The proposed IRDS standard specifies a set of specifically 
allowable entries of the types listed above which are collectively called 
the "Core-System-Standard Schema" which will be discussed in 3. below. 

The IRD schema is important for two reasons. First, the IRDS 
specifications allow for facilities to modify and expand the core-system- 
standard schema to meet the unigue needs of individual users. Second, 
the IRD schema supports the core system plus modules approach as discussed 
in Section 1 of this chapter and the IRD schema allows not only extension 
of the schema data but also definition of additional IRDS functions. 


3. The System-Standard Schema 

The system-standard schema defines the allowable contents of the 
IRDS and is expected to be part of every IRDS implementation (the proto- 
type IRD in Appendix E only implements a subset of the system-standard 
schema, this will be explained in Chapter 4). The core-system-standard 
schema does not contain all possible entity, relationship and attribute- 
types that an organization might desire. It does however represent the 
consensus of the organizations which participated in the original IRDS 
workshops and reviews. An overview of the core-system-standard schema 
is provided below and a complete core-system-standard schema is provided 
in Appendix A. 

a. Entity Types 
The core system-standard schema contains twelve entity-types 


that conceptually can be grouped into three categories, Data, Process, and 


External. fret, 32] 
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Data Entity-Types 


* DOCUMENT, describes instances of human readable data, such as tax 
forms and annual reports. 


* FILE, describes collections of records which represent an organiza- 
tion's data, such as inventory and accounts receivable files. 


* RECORD, describes instances of logically associated data, such as a 
payroll record. 


* ELEMENT, describes an instance of data, such as a social-security- 
number. 


* BIT-STRING, describes a string of binary digits, such as 01000101. 

* CHARACTER-STRING, describes a string of characters, such as "house." 

* FIXED-POINT, describes exact representations of numeric values. 

* FLOAT, describes exact representations of approximate numeric values. 

The last four are not used to represent application entities, but 

are instead used by the "REPRESENTED-AS" relationship to describe the 
characteristics of elements: 

PROCESS Entity-types 


* SYSTEM, describes a collection of processes and data, such as a 
payroll-system or accounts-payable-system. 


* PROGRAM, describes a particular process, such as print accounts- 
payable check 


* MODULE, describes a group of programs that are logically associated, 
such as a sort module. 


EXTERNAL Entity-types 


* USER, describes an individual or organization that is using the IRDS, 
such as the accounting department. 


b. Relational-types 
The relationship-types provided for in the IRDS core system- 
standard schema represent virtually all connections that might be useful 


to users. These relationship-types are grouped into eight classes [Ref. 33]: 
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* CONTAINS, describes a situation were an entity-type contains other 
entity-types, such as Accounts payable-file CONTAINS Accounts 
Payable-record. 

* PROCESSES, describes a situation where an entity-type acts upon 
another entity-type, such as Payroll-program PROCESSES Payroll- 
records. 

* © RESPONSIBLE-FOR, describes an association between entities represent- 
ing organizational components and other entities, to indicate 
organizational responsibility. An example of such a relationship is 
Accounting-department RESPONSIBLE-FOR General-ledger-file. 


* RUNS, describes an association between user and process entities, 
such as user RUNS program. 


* GOES-TO, describes a situation where one process transfers control 
to another process. An example of this relationship is Accounts- 


payable-aging-program GOES-TO Aging-report-program. 


* DERIVED FROM, describes a situation where an entity is derived from 
another entity such as Annual-report DERIVED-FROM program-file. 


* CALLS, describes a situation where one entity calls another entity 
such as Data-entry-program CALLS Aging-program. 


* REPRESENTED-AS, describes associations between ELEMENTs and certain 

other entitles that document the ELEMENTs format. An example of 

such a relationship-type is Employee-Name REPRESENTED-AS Ascil-char- 

Sering- 

c. Attribute Types 
The attribute-types available as part of the core-system-standard 

schema are the ones selected by conscientious of participating DD users 
and DD software developers during the development of the IRDS standard. 
They represent most of the attributes that an organization would need to 
describe the core-system-standard entity and relationship-types. The 


attribute-types provide [Ref. 341: 


* Audit trail information, a typical audit attribute-type is DATE- 
CREATED. 


* General documentation for entities, for example, DESCRIPTION and 
COMMENTS. 


See Appendix C for a complete list of the attribute-types. 
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4. Entity Names 


The core IRDS allows flexibility in the assigning of entity names. 
The system also allows for several distinct names to be associated with an 
entity and for each name to serve a specific purpose. The core system 
allows for ACCESS NAME, DESCRIPTIVE NAME and ALTERNATE NAME. 

The access name is the entity's primary identifier and it is the 
basis for the structure of most commands and panels. The access name is 
designed to be short, for ease of use by the system and user. Normally a 
user will provide the access name of an entity. However an option exists 
for the IRDS to generate the access names for all entities of a given type. 
The names that are generated by the system may be modified at a later date. 

The descriptive name provides detailed information about the object 
represented by the entity. So e brevity of the access name poses no 
disadvantage to the system or user. 

The IRDS does place a requirement on the user that all access and 
descriptive names be unique throughout the system. This requirement was 
generated by the ANSI X3H4 and workshop participants to insure simplicity in 
the command language and panel interfaces. 

The core IRDS also allows for user assignment of ALTERNATE NAMES 
for an entity. The term alternate name is used here in the same sense as 
the terms "synonym" and "alias." The alternate name documents different 
names used to represent the same real world things. For example, the 
element whose access name is Social-Security-Number might have alternate 


names, SSN, Soc-Sec, No, and Social-Security-Number. 


D. FUNCTIONS AND PROCESSES 
This section describes the functions and processes provided as part 


of the core IRDS. 
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1. Populating and Maintaining the IRD 
The core IRDS provides functions to add, modify, and delete 
entities and relationships. 
a. Entities 
m adino Entities. This function allows the user to 
add/create entities to the IRD. Some important aspects of adding a new 
entity are: 
* Declaring the type of the entity. 
* Designating the assigned access name. 
* Assigning a descriptive name to the entity. 
* Declaring attributes and attribute-groups for the new entity. 
The designated entity-type must He one that exists in the IRD schema. 
In order for the access name to be valid it must conform to the following 


rules: 


* The access name must conform to the length and picture requirements 
of IRD schema. 


* The access name used must not previously exist in the dictionary. 


If the system is to generate the access name the user must supply 
the entity type and starting value see Figure 3.2 for examples. 


(2) Môdi:v1ng Entities. This function is used to change the 
attributes of existing entities. When using the modify function the user 
may accomplish the following: 

* Creation of new attributes. 
* Modification of existing attributes. 
* Deletion of existing attributes. 


The core IRDS also offers a modification option that allows the user 
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ADD ENTITY u8=-20 TENTIT TYPER- SY TEN 
DESCRIPTIVE-NAME = ASCAD Database Update 
WITH ATTRIBUTES 

DESCRIPTION (START = 100 INCREMENT = 10) 


"This subsystem provides the capability for 
the staff to update the contents of the 
ASCAD Database." 

SYSTEM-CATEGORY = "subsystem", 
SECURITY = “datamgr"; 


Figure 3.2 Sample Command for Adding Entity 
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to create a new entity which has all the values of the old entityt but 
with some desired modification. This option allows for the easy genera- 
tion of a new version of an existing entity which would be identified as 


a different form the original entity by a version number (Figure 3.3). 


MODIFY ENTITY dd 01093 
WITH ATTRIBUTES 
DESCRIPTION = "A shared data field occupied by 
Sri Chery code or state codej/, 
SECURITY = "datamgr" 
DATA-CLASS = "alphanumeric", 
EPENEEBEEZRTTON=NAMES = 
(ALTERNATE-NAME = "cntry st code", 
ALTERNATE-NAME-CONTEXT = "pll"); 


Figure 3.3 Sample Command for Modifying Entity 
(3) Deletion of Entities. The core IRDS allows entities to 
be deleted by specifying any of the following: 
* The access name. 


* Entity selection criteria (access names) which will result in the 
creation of a new entity-list. 


* The name of an existing entity-list created earlier in the session 
or saved from a previous session. 


b. Relationships 
(1) Adding Relationships. The core IRDS allows for the 

creation of new relationships other than those provided as part of the 
core. The important considerations in creating a new relationship in- 
clude designating: 

* The entities that are to be members of the relationship. 

* The relationship type. 

* Optionally, attributes and attribute groups for the new relationship. 


* The entity sequence for ordered relationships. 
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In creating a new relationship the user need only identify the access- 
names of those entities associated with the relationship. 

(2) Modifying Relationships. The core IRDS allows the user 
to modify any existing relationship by identify the relationship by type 
and the access associated with it. Using this function, allows the user 
to: 

* Change a relationship's attributes. 

* Create new attributes. 

* Delete existing attributes. 

* Change the sequence of entities associated with the relationship. 

(3) Deleting Relationships. The function is provided by the 
core system to allow for leletion of relationships. 

c. Copying Entities and BEI SEE ona hios, 

The core IRDS allows for the creation of new entities with the 
same attributes, attribute groups and relationships as an existing entity. 
In order for the new entity to be created the user must activate the 
copy function and specify a new access name which is not duplicated in 
the system. Optionally the user may designate a new full descriptive 
name for the entity to be copied. 

2. IRDS OuEDUESEGEIREREY 
The core IRDS provides a GENERAL OUTPUT function for producing 
output of IRD entities, relationships, and attributes. The general output 
capabilities are discussed in a. below. The core IRDS also provides two 
additional output facilities the IMPACT-OF-CHANGE function, which provides 
a report of all entities that might be affected by a change to a specific 


entity, and the SYNTAX-OUTPUT function which generates output in the same 
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format as data was entered to create the entity in the first place. 
These two functions are discussed in detail below. 


a. General Output 
The core IRDS reguires that seven steps be completed before 
any output can be generated. Some of the steps are optional and therefore 
default values are available. The seven steps required for output genera- 
tion are: 
(1) Specify the views to which retrieval applies. The view is associated 


with the life cycle phase that the particular entity belongs to 
(See Figure 3.4 for an example). 


Select ENTITIES "Program-2 (*:*)" 
Where *:* means all revision-numbers and all variation-numbers 


- 


Figure 3.4 Sample Comand Line 


(2) Selection of the entities to be output. This selection is performed 
via the entering of selection criteria. Criteria is generally 
entered at the initiation of the output process. Selection 
criteria includes (See Figure 3.4 
* The type(s) of entities to be retrieved. 

* Characteristics of the assigned access or descriptive name. 
* Characteristics of the associated version identifier. 

* Designated attributes or attribute groups. 

* Life-cycle-phases. 

* Relationships 

(3) Sorting the entities on a series of sort parameters. The available 
parameters are the same as those listed in D.2 above. Suppose a 
user wishes to sor the selected entities based on entity-type, 


variation name, assigned-access-name, and revision-number. 
Figure 3.5 shows how the command might look. 
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(4) Designating what information is to be displayed include: 
* The kind of entity name (access, descriptive or alternate) 
* The life-cycle-phase of the entity. 
* One or more of the entity's attributes or attribute groups. 
* One or more relationships in which the entity participates. 


See Figure 3.6 for an example. 


entity-type (ascending), variation 
(ascending), assigned-access-name 
(ascending), revision (descending) 


Figure 3.5 Sample Parameters 


(5) Routing information which sends the output to a particular 
destination. 


(6) Assigning a title to the output. 
(7) Providing a name for the output procedure to allow it to be re- 


called at a later time, when the same output is required. 


SHOW ASSIGNED-ACCESS NAME 
ASSIGNED-DESCRIPTIVE-NAME 
REVISION-NUMBER, VARIATION NAME 


Figure 3.6 Sample Output Format Command Line 


b. Output IMPACT-OF-CHANGE 
AS previously stated, the IRDS allows for the printing or 
displaying of an Impact of Change report. This report is generated by 
a function that has two options. First, there is a cumulative impact- 


of-change option that lista all entities that will be impacted by a 


proposed change(s). Second, the Individual-Impact-Of-Change option 


produces a separate list of entities for each of the originally specified 


entity changes. 
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ENTITY-1 
[A11 ENTITY-1 information in the order in 


which it was originally entered]. 


RELATIONSHIP-1 The first relationship that the 
entity participates in and all the information 
associated with the relationship. 


RELATIONSHIP-j The jth relationship that the 
entity participates in and all the information 


associated with the relationship. 


11111 Sr 
[All ENTITY-n 
was originally entered]. 


inmrermation in the order in vihich it 


RELATIONSHIP-1 The first relationship that the 
entity participates in and all the information 


associated with the relationship. 


RELATIONSHIP-k The kth relationship that the 
entity participates in and all the information 


associated with the relationship. 


Figure 3.7 Sample Output Syntax Report Format 


ENTITY=1 
[A11 ENTITY-1 
it was originally entered]. 


information in the orđer in which 


BNATTY="N 
[ALL ENTITY-n 
it was originally entered]. 


information in the order in which 


RELATIONSHIP-1 The first relationship that the entities 
participated in and all the information associated 


with the relationship. 
RELATIONSHIP-k The kth relationship that the 
entities participated in and all the information 


associated with the relationship. 


Figure 3.8 Sample Output Syntax Report Format 
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c. Output Syntax 
The output syntax function produces output that includes all 
information about the entity that was entered during the add-entity or 
add-relationship process. The output for this function has two formats. 
The first, involves the listing of each entity and all relationships 
associated with the entity (See Figure 3.7). The second, lists all for the 
entities first and then lists all the relationships associated with those 
entities (See Figure 3.8) 
d. BEntitv-lists 
The IRDS allows a user to create and manipulate lists of access 
names which may then be used as input to other IRDS output functions. 
The IRDS has functions that allow for the creation of entity lists, main- 
tenance of entity lists, assigning of names to entity lists, output of 
entity lists, output of entity list names and the performance of set 
operations on entity lists which include union, intersection and symmetric 
difference. 
e. Procedures i 
Finally the IRDS provides a PROCEDURE FACILITY that allows the 
user to save a Sequence of operations, used to produce an output. This 
facility also allows for the saving of previously defined procedures under 
unique names, execution of previously saved procedures by specifying its 
name and outputting the names and structures of existing procedures. 
3. Schema Maintenance and Output 
This section expands the discussion of the IRD Schema which was 
introduced in Section C.2 and also discusses schema maintenance and output. 
In the previous sections the schema was shown to include: 


ENTITY-TYPES, RELATIONSHIP-TYPES, RELATIONSHIP-CLASS-TYPES, ATTRIBUTES-TYPES, 
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and ATTRIBUTE-GROUP-TYPES all of which are described in the schema 
as meta-entities. Meta-entities represent real world entities in the IRD 
schema. Real world entities are objects of concepts such as sales manager, 
account, balance sheet and others. The entities that represent these ob- 
jects, such as user, record or report are in turn linked by meta-relation- 
ships and both can have meta-attributes associated with them. 
a. Schema Control 
As stated in D.3 above the IRD schema contains meta-entities 
which are linked by meta-relationships with both the entities and relation- 
ships being described via meta-attributes. 
(1) Meta-entity. The IRD schema allows for the following 

meta-entities: 

* Entity-type 

% Relationship-type 

* Attribute-type 

* Relationship-class-type 

x  Attribute-group-type 

* Attribute-type-validation-procedure 

* Attribute-type-validation-data 

* Variation-names-data 


x  Life-cycle-phase 


X 


Quality-indicator 
*  Schema-defaults 
See Figure 3.9 for an example of an instance of each. 
(2) Meta-relationships. Meta-relationships represent 


relationships between two meta-entities. The core IRDS only allows one 
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occurrence of a relationship between any two meta-entities. Also 


meta-relationships are not given individual names in the core IRDS. 


Entity-type 

Relationship-type 
Attribute-type 
Relationship-class-type 
Attribute-group-type 
Attribute-type-validation-procedure 
Attribute-type-validation-data 
Variation-names-data 
Life-cycle-phase 
Quality-indicator 
Schema-defaults 


Figure 3.9 Instances of Meta-Entities 


The general form for a meta-relationship is meta-entity, 


meta-relationship, meta-entity. See Figure 3.10 for an example of the 


general form of a meta-relationship. 


(3) Meta-attributes. Meta-attributes perform a descriptive 


role with respect to meta-entities and meta-relationships. The core 


IRDS allows for four general types: 


* 


* ADDED BY 

*  ALLOWABLE-VALUE 
k DESCRIPTION 

*  LAST-MODIFIED-BY 


*  NUMBER-OF-LINES-OF CODE 


Figure 3.10 Sample Meta-Attributes 


Documentation meta-attributes are used to document the purpose of 
the meta-entity, See Figure 3.10. 


49 


* Audit meta-attributes serve the same general purpose as the audit 
attribute in the IRD, that being to provide an audit trail of what 
has happened in the schema, see Figure 3.10. 


* Schema control meta-attributes provide certain controls over what 
can and cannot be done to the schema. 


* Dictionary control meta-attributes which provide control over the 
dictionary itself. 


(4) A Sample Schema Structure. Figure 3.2 shows a sample 
schema structure involving files. It demonstrates the use of meta-entities, 
meta-relationships and meta-attributes in the formation of schema. 

b. Schema Manipulation 

The core IRDS allows for the modification of the schema via 
adding, modifying and deleting of meta-entities and relationships. These 
functions are designed to be performed by only those individuals with the 
proper access authorization. 

(1) Adding meta-entities. The core IRDS will allow those 
users with the proper authorization to add new meta-entities. The kinds 
of meta-entities that can be added are listed in D.3.a.(1) above. New 
meta-entities may not be assigned the name of a meta-entity that already 
exists. 

(2). Modiftving meta-entities. The core IRDS allows the user 
to modify meta-entities by associating a new meta-attributes with the 
meta-entity, by changing an existing meta-attribute or by deleting a 
meta-attributé that already is associated with the meta-entity. In the 
case of a changed or deleted meta-attribute the IRDS will insure that 
the change did not adversely effect the dictionary. 

(3) Deleting meta-entities. The core IRDS provides the 


user with the ability to delete an existing meta-entity from the schema. 
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However the IRDS will insure that the integrity of the dictionary is 
not violated. 

(4) Adding Meta-relationships. The core IRDS gives the IRDS 
user the ability to add new meta-relationships as he sees necessary. As 
stated earlier meta-relationships are associations between meta-entities. 
The process of adding a meta-relationship requires that the user specify 
the meta-entities that are to be members of the relationship and any meta- 
attributes that will be associated with E meta-relationship. 

(5) Modifying, Deleting and Replacing Meta-relationships. 
The core IRDS provides the user with the ability to modify, delete and 
replace meta-relationships. The modifying and deleting of meta-relation- 
ships is performed in the same manner as the modification and deletion 
of entities as explained in D.3.b.(2) and D.3.b.(3) above. The replace- 
ment of meta-relationships actually involves the combination of the 
delete meta-relationship and add meta-relationship functions. The replace- 
ment function is organized in this manner to insure the integrity of 
the IRD. 

(6) Modification of Meta-entity Names. The core IRDS allows 
the user to modify the meta-entity name. This process however falls 
along the same lines as the meta-relationship replacement function. It 
is the forced combination of the meta-entity deletion and add functions. 
This process is again used to insure integrity of the IRD. One addi- 
tional requirement exists and that is that the meta-entity name not be 
duplicated anywhere in the IRD. 

c. Schema Output 
The core IRDS allows those authorized to work with the schema 


the ability to output information about it. In order to produce the 


Dull 


output the user must select the meta-entities to be displayed. This 
selection is accomplished by choosing one of the F kine: 

* That all meta-entities be displayed. 

* That all meta-entities of a specific type(s) be displayed. 

* The name of a specific meta-entity. 
The resulting set of meta-entities may then be sorted on one of the fol- 
lowing parameters: 

* meta-entity-type 

£ meta-entity-name 

* Non repeating meta-attribute-types 
Before the sorted list is displayed the user must specify the informa- 
tion about each meta-entity he wishes to see. The display options avail- 
able to him are one of the following: 

* meta-name 

* meta-type 

* One or more of the associated meta-attributes 


* All or none of the associated meta-relationships in which the 
meta-entity participates 


4. The IRD to IRD Interface 
The IRD to IRD interface is an important feature of the core 
standard IRDS because it is the only controlled means for moving data 
between two IRDS. This facility allows an organization with more than 
one IRD to transfer information between them. The facility is also de- 
signed to allow IRDSs developed by different vendors to interface and 


exchange information, provided a communication link exists and they have 
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followed IRDS standards. The core standard IRDS only allows for the 
transfer and does not have any means of providing the physical connection 
between the IRDS. In allowing for the interface the only important 
issue stressed is that the exporting and importing dictionaries and the 
exporting and importing schema's must be compatible. 
5. IRDS Control Facilities 
The core IRDS contains five control facilities that are impor- 
tant in populating and maintaining the IRD. These are: 
* The Versioning Facility 
* The Life-Cycle-Phase Facility 
*  Ouality-Indicators 
* Views S 
* Security 
An overview of these was provided in Section D. This section presents 
additional deta1l Sm the Structure tad nsca mese facie eto 
a. The Versioning Facility 

The versioning facility provides the user with the ability to 
distinguish between entities that would otherwise be considered the same. 
The distinction is generated via the version-identifier which is composed 
of two parts: (1) a required revision-number and (2) an optional vari- 
ation-name. 

In the command language syntax the user encloses the version- 
identifier in parentheses and appends it to the access or descriptive 
entity name. Within the parentheses the variation-name (if used) is 
followed by the revision-number, separated by a colon. If the user does 


not specify a revision-number the system will default with a value of 
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1 to indicate that no revision exists and a value of 1 greater than 
the current value for any subseguent revisions. 

For example, suppose a certain payroll module exists that 
calculates state taxes for Alabama, Georgia, and Florida and another pay- 
roll module of the same functionality calculates state taxes for California 
and Texas. We can describe both with the same access name PAYROLL-MODULE, 
and differentiate between the two with different variation-names. Thus 
we could have PAYROLL-MODULE (AL-GA-FL:1) which would represent the Ala- 
bama, Georgia, and Florida capable payroll module with no revision. The 
California and Texas module which has had three revisions would be re- 
presented as PAYROLL-MODULE (CA-TX:4). 

b. The Life-Cycle-Phase Facility 

The life-cycle-phase facility of the core IRDS: (1) allows 
the user to define the life cycle phase to meet the methodology currently 
being used; (2) Provides facilities to assign each entity to a particu- 
lar phase; (3) Provides integrity rules concerning the passing of an 
entity from one phase to another. Each phase is represented in the 
schema as a meta-entity. 

Every life-cycle-phase belongs to a "phase class“ and the 
core IRDS recognizes three such classes: 

* UNCONTROLLED -- Uncontrolled phases are "specification," "design" 
or "non-operational." There are no integrity rules for this class 
and a user may identify as many phases with this class as desired. 

* CONTROLLED -- Controlled phases are those that are considered to be 
"operational." The core IRDS allows only one such phase the 
"CONTROLLED-PHASE" with its associated integrity rules. The 


integrity rules will be covered in the next section. 


* ARCHIVED -- The core IRDS can only have one ARCHIVED life-cycle- 
phase, called the "ARCHIVED-PHASE" and it is used to document and 
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classify entities no longer in use. This class also has special 
integrity rules associated with it, those will also be discussed in 


the next section. 
(1) Integrity Rules. As mentioned previously, integrity rules 
for the CONTROLLED and ARCHIVED life-cycle-phases are enforced by the 
core IRDS. These rules are based on a dierarchy of system-standard entity- 


types as defined by the following list. The highest in the hierarchy is 


the first and the lowest is the last: 


X SYSTEM 
* PROGRAM 
* MODULE 
po PLEE 


* DOCUMENT 


* RECORD 
* ELEMENT 
This means that the entities are "Phase-related." The hierarchy only 


applies to the core standard IRDS entity types and not to any entities 
added by the user via the extendability facility. 

These are integrity rules in the sense of controlled 
and archived but not in the sense of allowable ranges of attribute data 
Values, e.g.: "sex must be 'M' or 'F'. This type of integrity is handled 
through the ATTRIBUTE-TYPE-VALIDATION-PROCEDURE-META-ENTITIES: 


* RANGE-VALIDATION, which is used to restrict an attribute-type to an 
allowable set of ranges. 


* VALUE-VALIDATION, which is used to restrict an attribute-type to an 
allowable set of values. 


There are two relationship-class-types that are desig- 


nated as phase-related, they are CONTAINS and PROCESSES they are combined 
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with the entity-type to form phase-related relationship-types. Listed 
below in Table 3.1 are the relationship-types generated by this combination: 
The general integrity rule for entities in the controlled 
life-cycle-phase is: 
An entity can be in the CONTROLLED life-cycle-phase only if all entities 
whose types are below its type on the above hierarchy and that are con- 
nected to it with phase-related relationships are also in the CONTROLLED 
life-cycle-phase. 

The ARCHIVED life-cycle-phase has an integrity rule similar to that above: 
An entity can be in the ARCHIVED life-cycle-phase only if all entities 
whose types are below its type in the above hierarchy and that are con- 
nected to it with phase-related relationships are in either the CONTROLLED 
or ARCHIVED life-cycle-phase. 

The integrity rules are designed to insure that when an entity, for 
example "PAYROLL-SYSTEM" is moved to a new phase, for example "OPERATIONAL- 
PHASE" that all of the programs and modules associated with the system 
are either already in the operational-phase or ready to be moved to it, 
thus insuring the integrity of the system. 

c. Quality-Indicators 
The core IRDS allows the user to define quality-indicators 

and assign them to entities. These quality-indicators denote such things 

as: 

* The level of standardization of an entity (e.g., program standards, 
organization standards, company standards, and international 


standards). 


* The degree to which an entity meets the user quality assurance stan- 
dards, etc. 


All quality-indicators must be added to the IRD schema as 
a meta-entity. Also the core system-standard schema does not include any 


indicators, so all indicators must be user defined. 
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TABLE 3.1 


PHRASE-RELATED RELATIONSHIPS-TYPES 


SYSTEM-CONTAINS-SYSTEM 
SYSTEM-CONTAINS-PROBLEM 
SYSTEM-CONTAINS-MODULE 
PROGRAM-CONTAINS-PROGRAM 
PROGRAM-CONTAINS-MODULE 
MODULE-CONTAINS-MODULE 
FILE-CONTAINS-DOCUMENT 
FILE-CONTAINS-RECORD 
FILE-CONTAINS-ELEMENT 
DOCUMENT-CONTAINS-DOCUMENT 
DOCUMENT-CONTAINS- RECORD 
DOCUMENT-CONTINS-RECORD 
RECORD-CONTAINS-RECORD 
RECORD-CONTAINS-ELEMENT 
ELEMENT-CONTAINS-ELEMENT 


SYSTEM- PROCESSES- ETLE 
SYSTEM-PROCESSES-DOCUMENT 
SYSTEM-PROCESSES-RECORD 
SYSTEM-PROCESSESZEBEMEDNE 
PROGRAM-PROCESSES-FILE 
PROGRAM-PROCESSES-DOCUMENT 
PROGRAM- PROCESSES- RECORD 
PROGRAM- PROCESS ES-ELEMENT 
MODULE-PROCESSES-FILE 
MODULE- PROCESSES-DOCUMENT 
MODULE- PROCESSES- RECORD 
MODULE-PROCESSES- ELEMENT 
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a. Views 

Views are how the user logically perceives the dictionary and 
as such it is generally a subset of the complete dictionary. A view may 
be: Oe n etor entities with associate entities, attributes, and attri- 
bute-groups; (2) a set of relationships with its associated entities, 
attributes, and attribute-groups or (3) a set of specifications of opera- 
tions that may be performed by the user. 

Structurally, VIEW is an entity-type in the core IRDS system- 
Standard schema and each view in the IRD is an instance of that entity-type. 
For example, if a particular programmer is working on the Payroll- 
system of an organization. His view of the IRD would be all the programs, 
modules, files, records and elements contained in or processed by the 
Payroll system. 

The core IRDS allows an organization to define what views are 
available to a user thus limiting his access to the dictionary. if more 
than one view is available to a user, one will be designated as the default- 
vlew and will be presented to the user each time he uses the system un- 
less he specifically specifies otherwise. Views associated with each 
user are stored in the IRD as attributes of the DICTIONARY-USER entity. 

e. Core Security 

The general mechanism that implements core IRDS security con- 

Sists of the following: 


* For each authorized user of the IRDS, one DICTIONARY-USER entity 
exists. Associated with this entity are attributes that define 
the user's level of access. 


* Associated with each VIEW entity are attributes that define the 
permissions and restrictions that apply to all IRDS users allowed 
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to use the view. These include the abilities (independently specified 
for each entity-type), to read, add to, modify, and delete the entities 


that comprise the view. 


* Finally, each DICTIONARY-USER entity is linked to those views that 


the user can access. 


(1) Access Permission. Most IRD ACCESS PERMISSION is 


associated with view entities, and, for each view, the permission applies 


to all entities in that view. Each permission 


* 


PERMISSION attribute-group. 


The name of the entity-type for which the 


An indicator showing if permission exists 
Specified type. 


An indicator showing if permission exists 
specified type. 


An indicator showing if permission exists 
specified type. V 


An indicator showing if permission exists 
specified type. 


consists of several parts: 


permissions are specified. 


to 


to 


to 


to 


An indicator showing which relationships are 


from that view. 


An indicator showing if permission exists 
phase of entities of the specified type. 


to 


read entities of the 


add entities of the 


modify entities of the 


delete entities of the 


explicitly excluded 


modify the life-cycle- 


These permissions are stored in the IRD as a DICTIONARY- 


associated with it. 


se 


Each view may have multiple permissions 


The core IRDS specified five categories of permission: 


GLOBAL PERMISSION: All schema functions are allowed. 


GLOBAL PERMISSION FOR UNLOCKED META-ENTITIES: 


Permission to perform 


all schema functions except those that modify or delete meta-entities 


that have installation-lock set on. 


ATTRIBUTE-TYPE-VALIDATION-DATA WRITE PERMISSION: Read attribute type 
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validation data and modify their meta-attribute. 


* ATTRIBUTE-TYPE-VALIDATION-DATA READ PERMISSION: permission to read 
attribute-type-validation-data and their meta-attribute. 


* REPORTING PERMISSION: permission to read the complete schema. 
This facility is implemented through attributes of the DICTIONARY-USER 
entity- 
6. User Interfaces 

This section discusses the command language and panel interfaces. 
An implementation of the IRDS may contain either or both of the inter- 
faces but each interface will support the full capabilities of the IRDS. 

As stated earlier the IRDS interfaces are designed to allow the 
system to communicate with the user and vice versa. The panel interface 
is designed to prompt the novice through the system while the command 
language interface is designed for the more experienced user and thus 
skips most of the panels used in the panel interface. 

a. Command Language 

The COMMAND LANGUAGE interface supports both batch and inter- 

active modes. The commands used by the command language interface cor- 
respond closely with the functions discussed throughout this chapter. 
The syntax of each of the command language commands is presented in the 
Bacus-Naur form. Since the command language closely parallels the dis- 
cussion presented in the previous sections a detailed discussion of each 
command will not be attempted. A summary listing of the commands and 
their associated functions is provided in Appendix E. However the 


command language is discussed and illustrated in depth in [Ref. 35]. 
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b. Panel Interface 

The core IRDS provides the user of the system a structured 
set of logical screens (or panels) which, when used in the proper sequence 
perform the functions of the system. The panels can be considered to 
be user friendly in that they guide the user through the procedures for 
a function. 

The core IRDS does not specifically identify a panel structure 
of physical implementation of the panel interface. It is therefore up 
to the user to define his own panel structure and panel map (which panel 
follow which) for each function. 

The core IRDS does provide rules for the structure of the 
panels used by the IRD. They are: 

* Each panel shall have a unique name. 


* The panel interface is to have an inter-panel structure that de- 
fines a default progression of panels. 


* The first panel encountered is the HOME panel. 
* The user may return to the HOME panel at anytime. 

The structure of the panel interface is defined in terms of 
panel trees and panel areas. A panel tree is the collection of one or 
more panels used to perform a single function. A panel area is a portion 
of a panel that is associated with a particular category of information, 
and deals with the user interaction with the IRDS. The core IRDS identi- 
fies six different areas associated with the panel. not all of which are 
shown to the user at one time: 

* STATE AREA -- This area will always be displayed to the user. It 
informs the user of the name of the dictionary being accessed, and 


what is being done with the current panel, for example, adding a 
record. 
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* DATA AREA —- The data area supports the user in one of two ways: 
It displays labels that guide the user while he/she performs data 
entry; and, if the user is retrieving information, it displays the 
results. 


* SCHEMA AREA -- The schema area is primarily used during dictionary 
update operations. Examples of the use area include: 


- The listing of all valid entity-types, when adding an entity. 


- Displaying names of attribute-types that may be associated with 
an entity-type being entered. 


* ACTION AREA -- The action area displays the options that a user has 
when proceeding from the current panel to another. 


* MESSAGE AREA -- This panel area displays any errors and warning 
messages. 
* HELP AREA -- The help area displays information that the system can 


provide in response to a request for help. 
C. Operation on the Panel Interface 
The panel interface will generally be available to all IRDS 
users. The core IRDS does not however, require that the panel made avail- 
able to a user be tailored to meet his view of the system. The panel 
interface will still only allow the user to perform those functions and 
operations allowed according to his view and current security. 
1. RDS Modules 
The draft proposed IRDS standard contains specifications for 
three modules which may be implemented along with the core IRDS. They 
are: 
* ENTITY LEVEL SECURITY. [Ref. 36] 
* APPLICATION PROGRAM (CALL) INTERFACE. [Ref. 37] 
* SUPPORT OF STANDARD DATA MODULES. [Ref. 38] 
Since the scope of this thesis deals primarily with the capa- 
bilities of the core IRDS, the references listed above should be con- 


sulted if any additional information beyond that provided is required. 
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a. Entity Level Security 

This module allows the user the ability to assign read and 
write limitations to individual entities. This facility operates in 
addition to the security function provided inthe core IRDS. 

To accomplish entity level security, the module introduces 
the entity-type ACCESS-CONTROLLER, and a set of SECURED-BY relationship- 
types that allow an ACCESS-CONTROLLER entity to be connected with entities 
of all other types. 

b. Application Program (call) Interface 

This module provides an interface from a standard programming 
language to the IRDS. This dc accomplished by using the call feature of 
the programming language. In this way the IRDS is treated as an applica- 
tion program subroutine. 

c. Support of Standard Data Models 

An implementation of the specifications of this module would 
assist an organization in describing network and relational databases, 
particularly those supported by NDL and SQL command languages. The 
describing of network and relational databases is accomplished through 
the addition of three new entity-types, twelve new relationship-types, 
and fourteen new attribute-types to the Core System-Standard Schema, 


See Appendix D. 


E. CONCLUS TON 

The NBS IRDS standards provide the Information Resource Management 
arena a valuable tool. An implementation of an IRDS using the core 
standards as discussed above would deliver to the DBMS user tremendous 


capability, flexibility and uniformity in describing and controlling an 
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organisations data. Finally the capabilities described above far exceed 
that which is currently available with most of the dictionaries provided 
with DBMS products. 


But is an IRDS implementation possible. The next chapter discusses 


just such an implementation. 


IV. NBS IRDS PROTOTYPE 


This chapter discusses the implementation of selected portions of 
the NBS IRDS standards in the form of a relational prototype IRDS provided 
as Appendix E. Before discussing the NBS IRDS capabilities included 
in the prototype. It 1s necessary to discuss prototyping, its advantage/ 
disadvantages and why prototyping was chosen as the method for implement- 
ing an TRUS. 
A. PROTOTYPING [Ref. 39] 
Webster's dictionary defines a prototype as one of three possible 
things: 
* An original or model after which anything is formed 
* The first thing of its kind. 
* A pattern, an exemplar, an archetype 
The second definition is probably the most relevant to this discus- 
sion because prototypes are being used in data processing as a first attempt 
at design which is then extended or enhanced. In general systems develop- 
ment, a prototype is known as 
. . à partially complete functional model of a target system whose 
purpose is to provide a better understanding of the target system's 
requirements [Ref. 40]. 
A software prototype is characterized by the following feature. It 
is a working system, although of limited capability, rather than just 
an idea on paper. A prototype may become, after iterative enhancement, 
a production system. Its original purpose is to test assumptions about 
requirements and/or system design architecture. A prototype is created 
quickly. This has become possible only in recent years with more power- 


ful languages such as dBase II and III which are less procedurally 
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oriented. Some would argue however, that prototyping was the way soft- 

ware was developed before the advent of functional decomposition and the 

system development life cycle whch is generally accepted and used today. 
In the early days of software development writing programs was the 
thing to do. After an explanation of the problem, a period of gues- 
tions and answers, and research into the nuts and bolts of a method, 
the programmer began his or her work. Starting with that portion of 
the problem that was well understood, lines of FORTRAN, COBOL or ALGOL 
would begin to appear. As time passed additional portions were coded 
until the entire program was complete. Design was conducted implicitly, 
if at all:  [Ref. 41] 

A prototype should be inexpensive to build, at least less than it 
would cost if a conventional high level language were used. Indeed, pro- 
totyping in data processing originated only recently because until re- 
cently, programming a protype was just as costly as programming the 
working system [Ref. 42]. The important point is to get something running 
soon to establish effective communications with the user without the use 
of extravagent resources. the follow-on development of a prototype is 
an iterative process in which improvements are made in small increments 
as the user developer work together and discover new reguirements. 

[Ref. 43] 

Mitchell Spiegel, formerly of Wang Laboratories, explains the proto- 
typing approach as: 

. . a process of modeling user requirements in one or more levels of 
detail, including working models. Project resources are allocated to 
produce scaled down versions of the software described by requirements. 
The prototype version makes the software visible for review by users, 
designers and management. This process continues as desired, with run- 
ning versions ready for release after several iterations. [Ref. 44] 


Traditional management information system development follows a 


series of steps (see Figure 4.1). Prototyping is considered as an 
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adjunct activity to the specification of reguirements (See Figure 4.2). 
The results of prototyping are input to the steps following reguirements 
Feasibility Study 
Reguirements 
Product/Preliminary Design 
Detailed Design 
Coding 
Integration 


Implementation 


Operations and Maintenance 


Figure 4.1 Steps in Traditional System Development 


analysis, but may or may not be used actively in those steps. 
1. Advantages of Prototyping- 

There are several advantages associated with the use of proto- 
typing. First a prototype usually gets the product into use as early as 
possible. Early use can provide assistance to the decision makers and 
feedback to the builders. Second, prototyping is considerably cheaper 
than a "full-build" approach, which delays installation until the pro- 
duct is complete. Third, prototyping is a convenient way of keeping the 
product simple, which is valuable to both builders and users. Fourth, 
prototyping lowers risk and expectations. [Ref. 45] Fifth, it is easy 
to write statements in a requirements document which say "the system 
shall do x" and "the system shall be capable of y." However, both the 
developer and the user get a more realistic feeling for the effort and 
cost of a feature when they must actually add it to a working model. 
Thus, the eventual model better represents what is feasible than a 
document with a series of "shall statements." Even though the 


functionality of a prototype product is minimal, the user is forced to think 


67 


more carefully about the task being automated, 


more accurate understanding of the problem [Ref. 29]. 


This should produce a 


Finally, prototyping 


unlike traditional methods builds an effective brigade across the com- 


nunication gap between the user and the developer. 


meas il birety Study 
Requirements----------------- 
Product“ Preliminary Design 
Detailed Design 

Coding 

Integration 


Implementation 


Figure 4.2 


2. Disadvantages of Prototyping 


Prototyping has some decided disadvantages as well. 


Identify basic need= 
Develop working model 
Dema in context i 
Salicit refinements 


Implement revisions 


prototype done ? 
“Ea, Go en tO 
alled design 

NO, qu back to 
ep 3 


System Development Using Prototyping 


Prototyping 


makes it difficult to plan resource use because a clear picture of what 


the finished product will look like is not provided. 


TE also makes it 


deco decide whether to enhance an old version or build a new one. 


Analysts and user can become bored after the nth ¡teration of the prototype. 


In using the traditíonal development process there are specific reguire- 
ments which, when met by proof of validation, clearly mark the job as com- 
plete. Because the prototype is changing continually, it creates a problem 
keeping users abreast of the current version and what has been validated 
and what has not. Prototyping can cause a reduction in discipline for proper 
documentation and testing (although this has nothing to do with the prototype 
itself). Because there is less emphasis on hard thinking and "desk check- 
ing" there is a greater chance of missing a basic problem which could 
negate assumptions essential to the product being developed. Also there 
is the chance users may become so happy with the prototype that they consider 
it a functional product and want the data processing people to start work 
on something else. A study using the ACT/1 software package for prototyping 
showed increased needs for computing resources. If the productivity gained 
from using prototyping doesn't offset the cost of the increased computing 
power, then the prototyping approach is p at a disadvantage. 
3. Types -of Prototyping 

There are two approaches to prototyping: the throwaway prototype 
The throwaway prototype development process has the advantage that when 
the developer can show the user an immediate capability when he is through, 
he can just discard the product. This lowers the developer's risk and 
the user's expectations. The evolving prototype process on the other 
hand is better suited for the development of an initial capability that 
will evolve into a finished product. The evolving prototype has the 
disadvantage that the user may accept the first version and thus short 


circuit full development. 
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4. Reasons for Prototyping 


Prototyping was chosen as opposed to full life cycle development, 
because time constraints prevented full development of a DD system 
whereas prototyping allowed a viewable product to be produced in the 
given timeframe. Additionally the evolving prototype process was used to 
develop the IRDS with the anticipation that additional capabilities as 
specified in the NBS IRDS standards would be added according to user needs 
as additional versions were implemented. 

Ba HE IR PROTOTYPE 

dBASE III a Data Base Management System (DBMS) was selected as the 
development tool for the IRDS prototype, because data dictionary systems 
are essentially a specialized kind of database system. The prototype 
could have been written in Pascal or COBOL but the time required to produce 
a uSable product would have been prohibitive. Additionally since the 
prototype was developed using a DBMS system certain capabilities were al- 
ready available, i.e., a query processor, file maintenance routines, and 
high level language. The intention was not to develop a marketable pro- 
product but to demonstrate and evaluage the capabilities described in the 
NBS IRDS standard. 

The IRDS prototype is based on a reasonable subset of the core features 
presented in Chapter 3. The features listed below constitue IRDS Proto- 
type Version 1.0 (See Appendix C): 

* Panel Interface 
* Security 
* Add Entity 


* Modify Entity 
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* Delete Entity 

* Add Relationship 

* Modify Relationship 

* Delete Relationship 

* Add Schema 

* Modify Schema 

* Delete Schema 

* IRDS Output 

* IRDS Query 

The remainder of the features listed in Chapter 4, though desirable, 
will be left for implementation in later versions. 
1. A Relational Model of the IRDS 
The IRDS prototype accounts for several different relations in- 
cluding users, systems, programs, modules, document, files, records and 
elements. The generalized format of these relations is as follows: 

* USER (access-name, id-name, duration-type, description, date-added, 
added-by, comments, last-modification-date, last-modified-by, number- 
of-modifications) 

* SYSTEM (access-name, id-name, duration-type, description, date-added, 
added-by, system-category, comments, last-modification-date, last- 
modi fied-by, number-of-modifications) 

* PROGRAM (access-name, id-name, duration-type, description, date-added, 
added-by, lines-of-code, comments, last-modification-date, last- 
modified-by, number-of-modifications) 

* MODULE (access-name, id-name, duration-type, description, date-added, 
added-by, lines-of-code, comments, last-modification-date, last- 
modified-by, number-of-modifications) 

* DOCUMENT (access-name, id-name, duration-type, description, date- 


added, added-by, comments, last-modification-date, last-modified-by, 
number-of-modifications) 
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* FILE (access-name, id-name, duration-type, description, date added, 
added-by, number-of-records, comments, last-modification-date, last- 
modified-by, number-of-modifications) 

* RECORD (access-name, id-name, duration-type, description, date-added, 
added-by, number-of-elements, size, comments, last-modification-date, 
last-modified-by, number-of-modifications) 

* ELEMENT (access-name, id-name, duration-type, descritpion, date-added, 
added-by, element-type, element-length, low-of-range, high-of-range, 
allowable-value, comments, last-modification-date, last-modified-by, 
number-of-modifications) 

for a detailed explanation of the attributes for these relations see 
[Ret. 47]. 

Relationships among the various relations are tracked by having 
relations with a verb name reflecting how one entity relates to another. 
For example, since a program can contain several modules, a program-con- 
tains-module relations is included in the dictionary. Its format is as 
follows: 

*  PROGRAM-CONTAINS-MODULE (program-name, 
module-name). An example of this relation would be: 

PROGRAM-CONTAINS-MODULE (u-8,  u-8-10) 

(u-8,  u-8-20) 

(u-8,  u-8-30) 
The prototype implements twelve of the sixty-four relationships specified 
in the NBS IRDS standard. See Appendix A for a complete listing of the 
allowable relationships. Listed below are the twelve relationships in- 
cluded in the prototype: 

*  PROGRAM-PROCESSES-RECORD (program-name, record-name) 


*  PROGRAM-PROCESS-FILE (program-name, file-name) 


*  SYSTEM-CONTAINS-FILE (system-name, file-name) 
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*  USER-CONTAINS-SYSTEM (user-name, system-name) 

* © USER-RESPONSIBLE-FOR-SYSTEM (record-name, system-name) 

* | FILE-CONTAINS- RECORD TREE records-name) 

*  RECORD-CONTAINS-ELEMENT (record-name, element-name) 

+ USER-RESPONSIBLE-FOR-FILE (user-name, file-name) 

* © PROGRAM-PRODUCES-DOCUMENT (program-name, document-name) 

* © PROGRAM-CONTAINS-MODULE (program-name, module-name) 

* © SYSTEM-CONTAINS-PROGRAM (system-name, program-name) 

* © PROGRAM-PROCESSES-ELEMENT (program-name, element-name) 
2. Interface 

The NBS IRDS standard provides for two user interface capabilities: 
The Command Language Interface and the Panel Interface. The Panel Inter- 
face method was chosen because it provides a "user friendly" communica- 
tion link between the IRDS and the user. Figures 4.3 thru 4.6 provide 
a series of panel trees that diagrammatically represent panel interface 
system used. 

The panel structure itself followed the guidelines provided in 
the IRDS standard (See Figure 4.7). The IRDS standard allows for six 
possible areas to be defined in the panel state area, data area, schema 
area, action area, message area and help area. All areas except the 
help area are included in this prototype. Figure 4.7 shows what portions 
of the screen are used for each of the areas. 

C. IRDS START-UP 
This IRDS prototype was written in dBASE III and uses panel interfac- 


ing as the means of communication with the user. The first panel that 
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Figure 4.3 The Panel Interface -- Overall Structure 
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Figure 4.4 Dictionary Maintenance Panel Tree 
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Figure 4.7 Panel Structure 
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that a user sees when signing on the system, is one that reguires the 
individual to insure that he/she has the computer in the proper mode 
(Figure 4.8) 
Bb. SECURITY 

Security is provided in two ways. First, the system reguires the 


Me bo enter a user ID and password which are stored as attributes of 
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EM D: ACCESS ENTITY. Second, the SECURITY-ACCESS ENTITY contains 
additional attributes that pertain to which entities the user can View, 


display and/or modify (See Appendix F for a detailed description the 


entity structure). Figure 4.9 depicts the panel that requires the user 
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to log into the system using his user ID and password. Once a user has 
entered his ID and password the system will grant or deny access to the 
system. The system will allow the user three chances to enter his ID 
and password correctly, if a proper logon has not been accomplished at 
that time the system will terminate. If access is granted additional 
Variables will be loaded to the system that will restrict the user ability 
to add, modify and change relations and relationships during the current 
session. The data administrator.is the only user capable of modifying 
the attributes associated with a user's security-access entity. Once 
the user has successfully logged in, the system will display the main 
menu (Figure 4.10). From this point the user can proceed to any other 
panel. This panel must always be returned before any other function can 
be used. 
E.  POPULATING AND MAINTAINING THE DICTIONARY 

The routines to add, modify and delete entities and relationships are 
executed from the maintenance menu (See Figure 4.11). The user decides 
which maintenance activity he want to do and makes the appropriate menu 
selection. The system will then activate the appropriate maintenance 
module and present a panel to the user showing him what his options are or 
what input is required. 

The following sections describe each of the five dictionary maintenance 


functions available to the user as part of the prototype. 


- 


i. Adding Entities 


If the prototype user selects the add entity option from the 
maintenance menu, the system will prompt him as to which type of entity 


he would like to add (See Figure 4.12). Once the user has indicated his 
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Figure 4.10 Main IRDS Panel 
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Figure 4.11 Maintenance Panel 
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choice, the system will present a panel prompting the user to enter the 


appropriate attributes about the entity (See Figure 4.13). For a 
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Figure 4.12 Add Entity Panel 


complete list of all allowable entity attributes See Appendix A. 
2. Modifying Entities 
If the prototype user elects to modify an existing entity, the 
system display a panel asking which entity he desires to modify (Figure 
4.14 and 4.15). Once the user makes his selection as to which entity 
to modify the system restrieves the desired tuple and presents a panel 
displaying it's current contents. The user can then modify the tuple as 


desired (Figure 4.16) 
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Figure 4.15 Modify Entitv Select Panel 
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ha Deleting Entities 


If the prototype user selects the delete entity option, the system 


presents a panel requesting that the user select an-entity type to delete. 
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Figure 4.17 Delete Entity Panel 


The system then request the user to identify the particular entity tuple 
iosbe deleted ana provided instructions on how to complete or short the 
deletion. Once the user indicates which tuple he wishes to delete, the 


system displays the tuple and waits for the user to complete the 


transaction (Figure 4.16 thru 4.18) 


4. Adding Relationships 


If the prototype user elects to add a relationship the system 


present a panel asking him to select which type of relationship he wishes 
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Figure 4.18 Delete Entity Selection Panel 
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Figure 4.19 Delete Entity Confirmation Panel 
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to add (Figure 4.20). When the user makes his choice the system 

executes the relationship add module and prompts the user for the reguired 
input (Figure 4.21) This prototype version allows 12 relationships. 

See Appendix A for a complete list of all relationships allowed in the 


IRDS standard. 
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Figure 4.20 Add Relationship Selection Panet 


5. Modifying Relationships 


This version of the IRDS prototype does not contain a modify re- 
lationship capability as the add relationship module serves the same 


purpose. 
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6. Deleting Relationships 


This module of the IRDS prototype allows the user to select a 


tuple of a particular relationship and mark it for deletion. The user 
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Figure 4.21 Add Relationship Input Panel 


must identify which type of relationship he want to modify (Figure 4.24). 
After the user makes a selection, the delete module is loaded which prompts 
the user to identify which tuple to delete and provides him with instruc- 
tions on how to complete the transaction. The system then retrieves 

the tuple and displays it for verification and transaction completion 

(See Figures 4.25 and 4.26). 

F. THE DICTIONARY OUTPUT FACILITY 


The IRDS prototype allows the user to generate dictionary output in 


two forms, screen and printer. When the user selects the dictionary output 
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Figure 4.24 Delete Relationship Selection Panel 
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Figure 4.25 Delete Relationship Panel 
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option from the main menu, the system executes the dictionary output 
module and presents to the user a panel (Figure 4.27) reguesting that 


he choose entities or relationships as output. 
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Figure 4.26 Delete Relationship Tuple Verification Panel 


l. Entities 
If the user chooses the entity output option, the system presents 

a panel requesting the type of entity to be output (Figure 4.28). The 
system then prompts for whether output is to be generated and displayed 
on the screen or sent to the printer (Figure 4.29). The system then 
displays all tuples of the entity-type selected, one at a time for 
screen output and all at once for printer output (Figure 4.30). The 
— version of the IRDS prototype does not allow the user to select 
which attributes will be displayed or limit the number of entities 


displayed. However the query function does give the user the ability 
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Bail s j v selected entity types. This capability will be discussed in 


Section G. 
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Figure 4.27 Dictionary Output Selection Panel 


2 Relationships 


If the prototype user decides to output the tuples associated with 
a particular relationship, he makes the appropriate choice on the diction- 
ary output panel (Figure 4.27). The system activates the appropriate 
module and then requests that the user identify the relationship to be 
output (See Figure 4.31. After the user selects the relationship, the 
system prompts for whether output is to be generated to the screen or 
printer (Figure 4.32). The system then displays all tuples of the entity- 
type selected (Figure 4.33). This version of the IRDS prototype does 
not allow the user to select which entities associated with the relationship 
are to be displayed. However the query function does give the user the 


ability to display selected entities with a relationship. 
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Figure 4.28 Entity Output Panel 
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Figure 4.29 Output Selection Panel 
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Figure 4.30 Entity Output 
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Figure 4.31 Relationship Ouptput Selection Panel 
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Figure 4.32 Output Selection Panel. 
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Figure 4.33 Relationship Output 
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3. schema 
The IRDS prototype also allows the user to display the 
schema for all entity-types and relationship-types. In order to exe- 
cute this portion of the prototype the user selects SCHEMA OUTPUT 


from the main menu (Figure 4.10). Once the selection has been made, 
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Figure 4.34 Schema Output Selection Panel 


the system executes the schema output module and requests that the user 
choose which type of schema to output and it's ACCESS-NAME (Figure 4.34 
and 4.35). The user is then prompteq by means Of a onoho T c] 
output medium. The system will then display the requested schema struc- 
ture (Figure 4.36 and 4.37). Figures 4.36 and 4.37 provided below depict 
the output of an entity-type schema. The process for displaying a re- 
relationship schema is identical and will not be explained further here. 
G. QUERY 

The IRDS prototype query function give the prototype user the ability 
to generate ad hoc queries about any relationships that the system 
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Figure 4.35 Entity Select Panel 
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Eigure 4.36. Output Selection Panel 
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maintains. Not all of the IRDS standard relationships are im- 


plemented in this version of the IRDS prototype (See Appendix A for a 
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Figure 4.37 Sample Schema Output 


list of the allowable relationships). The remainder of the relationships 
will be reserved for implementation in subsequent versions of the proto- 
type. The prototype uses a keyword selection process to generate a query 
of the form SUBJECT-VERB-OBJECT and a query processor to process the 
query and generate the resulting output. When the user selects the 

query option from the main menu (Figure 4.10), the system executes the 
query module and present a panel (See Figure 4.38) requesting that the 
user choice which entity-type 1s to be the subject of the query. The 
system then requires the user to enter the ACCESS-NAME of the entity 


to be queried and select whether entries are to be verified before 
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Figure 4.38 Query Entity-Type Selection Menu 
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Figure 4.39 Entiey 1  lectlion čienu 
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Figure 4.40 Relationship Selection Menu 
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being accepted by the system (Figure 4.39). The system next prompts 
the user for the relationship-type that is the verb of the query. 
Finally the system request the entity-type which acts as the object 


to form the query (Figures 4.40 and 4.41). When the final form of the 
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Figure 4.41 Entity-2 Selection Menu 


guery has been specified the system process the guery, reguests the 
selection of an output medium for the guery results, and then generates 
the output (See Figure 4.42 thru 4.43). 
H. SCHEMA MAINTENANCE 

Even though the Core IRDS Standard Schema limits entity and re- 
lationship meta-data (See Appendix A), it allows for extensibility in 
that additional attributes may be added by the user. The schema main- 
tenance facility of the IRDS prototype allows an authorized (authorization 
is determined through the security function) user to add new attributes 


and modify or delete existing ones. Note: That although the prototype 
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Figure 4.42 Output Selection Panel 
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Figure 4.43 Query Result Panel 
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allows for the addition of entity and relationship relations 

the panel structure would reguire modification to make full use of any 
relations that were added. When the user selects the schema maintenance 
option from the main menu (See Figure 4.10), the system activates the 
schema maintenance module and displays a panel reguesting that the user 


choose which type of schema is to be modified (Figure 4.44). 
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Figure 4.44 Schema Maintenance Selection Panel 


The user will then be allowed to identify particular entity or relation- 
ship type and perform maintenance. The following sections describe how 
the IRDS prototype performs the schema maintenance Eunctrions OL the mERDS 


Prototype. 


MEREN ity Meta-data 


When the authorized user indicates that he desires to add, modify 
or delete meta-data associated with the entity-type scema, the system 
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presents a panel reguesting that the user choose which entity he desires 


to maintain (Figure 4.45). 
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Figure 4.45 Delete Entity Schema Maintenance Panel 


a. Adding, Modifying or Deleting Entity Meta-data 
After the user identifies which entity-type 1s to be main- 
tained, the system retrieves the schema structure, displays it, and al- 
lows the authorized user to perform the desired maintenance (Sée Figure 


4.46). 


2. Relationship Metadata 


When the authorized user indicates that he desires to add, modify, 


or delete meta-data associated with the entity-type schema, the system 
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presents a panel reguesting that the user choose which entity he desires 


to maintain (Figure 4.47). 
a. Adding, Modifying or Deleting Relationship 


After the user has identified which relationship-type is to 


He HEHE SEE TE HE SE BEBE BE 36 E E EE IE ZE BE BE BE BE SE SE DE E E SE JE BBE IE E IE IE FEIE IE AE AE AE AE IEE FE E AE AE AE AE E E E E E AE AE AE A L 


x x 
ž x 
+ C:USER.dbf x 
* Bytes remaining 3768 Y 
I Fields defined 18 + 

* 
* Field name Type Width Dec * 
* x 
"4a - USER Logical l * 
* 2 ACC NAME Character 18 * 
* 3 ID NAME Character 28 * 
+ 4 DESCRIPT Character 188 x 
* 5 DATE ADDED Date B * 
& 6 ADDED BY Character 28 * 
* 7 (COMMENTS Character 58 * 
* 8 LST MOD OT Date 8 x 
* 9  LST MOD BY Character 28 * 
+ 18 NUM OF MOD Numeric 3 * 
x x 
x x 
x x 
* Names start with letter; the remainder may be letters, digits or * 
* underscore * 
* DEPRESS Fi FOR INSTRUCTIONS x 
ZE K A AEZ A K EA HEA AKA AAA A FE FEAE AE AE AE AE FE AE FE FE AE IE AE AE AEE AE E AE IE IE IE IE AE IE IE AE AE AEE E IE AE AE AE AE FE 


Figure 4.46 Entity Schema Maintenance Panel 


maintained, the system retrieves the schema structure, displays it, and 
allows the authorized user to perform the desired maintenance (Figure 
4.48). 
I. FINAL COMMENTS 

Although this prototype IRDS does not possess all of the features 
that were described in Chapter 3, it does demonstrate that a relational 
DBMS-dependent implementaion of the NBS IRDS is feasible as demonstrated 


by the prototype. The extensibility feature described in the standard 
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Figure 4.47 Relationship Selection Panel 
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Figure 4.48 Relationship Schema Maintenance Panel 


NOS 


is enhanced because of the inherent flexibility of the relational 
environment. Finally the NBS standards provide a firm foundation from 


which to consider dictionary system implementation. 
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V. CONCLUSION 


This thesis has discussed and evaluated the value of data asa 
corporate asset and how Data Base Management Systems (DBMS) can be 
used to manipulate this corporate asset. It has described how the concern 
over corporate data has led to the development and increased use of 
Relational Data Bases and in particular Data Dictionaries (DD). Desirable 
DBMS and DD characteristics, capabilities and features were identified 
and discussed. Two existing relational DBMS were evaluated concerning 
the data dictionary features they provided. The result of that evaluation 
was that relational systems lack a majority of those dictionary features 
deemed necessary and desirable. Further, all existing DD products were 
developed. 

This thesis then presented, described and discussed the National 
Bureau of Standards (NBS) Information Resource Dictionary System (IRDS) 
standard. The standard provides a synthesis of baseline features, capa- 
bilities and functions found in existing DD systems plus the additional 
capabilities of being able to handle all three major types of data base 
organization: hierarchical, network and relational. Of equal signifi- 
cance, it offers the flexibility for user to expand the dictionary schema 
to accomodate unique requirements. 

This thesis developed a relational model of the NBS IRDS which was 
implemented as a prototype using a personal computer and dBase III. The 
prototype demonstrates that the features presented as part of the NBS IRDS 


are implementable and usable in a relational environment. 
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It is recommended that the IRDS prototype undergo additional develop- 
ment with the goal of implementing an operational production version of the 


NBS IRDS standard. 
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APPENDIX A 
CORE STANDARD SCHEMA 


This appendix describes the Core System-Standard Schems 
and its structural characteristics. The Core 
System-Standard Schema is defined as that specific set of 
entity-types, relations-types, attribute-types, and other 
schema descriptors supported b» the Core Standard IRDS. 
While this Core System-Standard Schema satisfies the 
requirements of many [RDS environments, an organization can 
customize its IRDS Schema usina the Schema Extensibility 
Facility discussed in previous chapters. 


A.1 ATTRIBUTE-TTRPES BND ERI ii sii TES 


In this section, the attribute-type= and 
attribute-group-types associated with each entity-tyrpe are 
given. The following are the entity-types in the Care 
System-Standard Schema: 


* USER 

* SYSTEM 

x PROGRAM 

# MODULE 

+ FILE 

x DOCUMENT 

* RECORD 

+ ELEMENT 

+  BIT-STRING 
* CHARACTER-STRING 
Z PL EB P ih 
* FLOAT 


The other sntity-types found in the Core Švystem-5tandard 
Schema are: 


* DICTIONARY-USER. in support of the Security Facility. 
e VIEW which supports the Secutity and View Facilities. 


The +ollowina two tables present the attributes-trpes 
and attribute-oroup-types accociated with the non-secutiry 
related entity-types listed above. Attribute-qroup-trpes 
can be identified by the existence of their component 
attribute-types, which are indented and immsdiatedly fellow 
the attribute-group-t»pe name. At the intersection of a ravi 
and column, the following denote that an entity of the given 
type: 

S Can have no more than a single attribute of the 

given type. 


ROR 


E Can have multiple attributes of the given tvpe. 


The first table shows the attribute-types accociated 
with the following entity-types: 


s USER- (USR) 

s (siel (SYS) 

x PROGRAM (POM) 

= MOBUJLE (MDL) 

NEDDEE  CFILO 

* DOCUMNET x DOC 3 

EIRE (REC) 

#- MSLBMENT CELE?) 
TO E CRULP - TYPE) 

AND 


ATTRIBUTE-TYPE 


ADDED-BY 
(ALLONABLE-RANGE > 
LOW=DF-RANGE 
HI GH-OF-PANGE 
ALLOWABLE-UALUE 
CLASSIFICATION 
CODE-LIST-LGCATIUN 
COMMENTS 
DATA-CLASS 
DATE-ADCED 
DESCRIPTION 
DOCUMENT -CATEGORY 
( DURAT I GN) 
DURATION-UALLUE 
DURAT ION-TYPE 
| IDENTIFICAT I ON-NAKME > 
ALTERNATE-NAME 
ALTERNATE-NAME-CONT EXT 
LAST -MODIFICATION-DATE 


LESU SMODIFIED—BY 


EPIIIT S 


Boba 5x3 PEPR IOS EG (Pe 


REC: 


ELE 


—- — > RR — — aa a a — — w a A -— = = — — '— —— — RÀ 


3 = s 2 5 a 


s 5 "SV SSE 
S 5 $s 5 $ 8 
s 201-1 70: 
= 

S $ $ 


o 
U) 
W 
U) 
a 
C 


o 
U) 
U 
O 
U) 
(f) 


ELO 


4 
N 


i) 


OU 


(y) 


-— 


= 


(rí 


V ri 
PL 


II 
RE 


MK) 


LOCAT ION Ę E E F P P 
NUMBER-OF-LINES-OF-CODE S 5 
NUMBER-QF-MODIFICATIQONS 5 5 3 S = S S 5 
NUMBER-OF-RECORDS 5 
RECORD-CATEGORY 5 
SECURITY 5 3 3 5 5 5 5 = 
SSE > 
A.2 RELATIONSKRIPF-SLLAÁSSTIVFES GNE PRIELATUONESKH I sla S 

This section presents the relationship-clase-typest and 
relationship-trpes im the Core Svstem-Standard Schema The 
relationship-class-types, where they exist, are provided in 
bold print as headers to the relationship-types to which 


they apply. The inverse-name which alows the specification 
of the member entity-tyupes in reverse order) and 
abbreviated inverse-name are given tor each 
relationship-class-type, so the inverse-name and abbreviared 
inverse-name for each relationship-type may be interred. 

fo a particular 


Where no relationship-class-type applies 
inverse-name and abbreviated 


relationship-type, its 


inverse-name are qiven directly. 
CATTRIBUTE-GROUP-TY PE) 
AND ABBREVIATED 
ATTRIBUTE-TYPE ABBREVIATON INVERSE-NAME — INVERSE-NPME 
CONTAINS CON CONTAINED-IN CON-IN 
SYSTEM-CONTAINS-SYSTEM SYS-CON-SYS 
SYSTEM-CONTAINS-PROGRAM SY S-CON-PGM 
SYSTEM-CONTAINS-MODULE SYS-CON-MDL 
PROGRAM-CONTAINS-PROGRAM PGM-CON-PGM 
PROGRAM-CONTAINS-MODULE POM-CON-MDL 
MODULE-CONTAINS-MODULE MDL-CON-MDL 
FILE-CONTAINS-FILE FIL-CON-FIL 
FILE-CONTAINS-DOCUMENT FIL-CON-DOC 
FILE-CONTAINS-RECORD FIL-CON-REC 
FILE-CONTAINS-ELEMENT FIL-CON-ELE 
DOCUMENT - CONTA INS-DOCUMENT DOC-CON- DOC 
DOCUMENT -CONTAINS-RECORD DOC-CON-REC 
DOCUMENT -CONTAINS-ELEMENT DOC-CON-ELE 
RECORD-CONTAINS-RECORD REC-CON-REC 
RECORD-CONTAINS-ELEMENT REC-CON-ELE 


DO 


ELEMENT -CONTAINS-ELEMENT 


PROCESSES 
USER-PROCESSES-FILE 
USER-PROCESSES-DOCUMENT 
USER-PROCESSES-RECORD 
USER-PROCESSES-ELEMENT 
SYSTEM-PROCESSES-F ILE 
SYSTEM-PROCESSES-DOCUMENT 
SYSTEM-PROCESSES-RECORD 
SYSTEM-PROCESSES-ELEMENT 
PROGRAM-PROCESSES-FILE 
PROGRAM-PROCESSES-DOCUMENT 
PROGRAM-PROCESSES-RECORD 
PROGRAM-PROCESSES-ELEMENT 
MODULE-PROCESSES-FILE 
MODULE-PROCESSES-DÜCLMENT 
MODULE -PROCESSES-RECORD 
MODULE-PRÜCESSES-ELEMENT 


RESPONSIBLE-FOR 
USER-RESPONSIBILE-FOR-SYSTEM 
USER-RESPONSIBLE-FOR-PROCRAM 
USER-RESPONSI BLE-FOR-MODULE 
USER-RESPONSI BLE-FOR-RECORD 
USER-RESPONS I BLE-FOR-DOCUMENT 
USER-RESPONSI BLE-FOR-RECORD 
USER-RESPONS I BLE-FOR-ELEMENT 


RUNS 
USER-RUNS-SYSTEM 
USER-RUNS-PROGRAM 
USER-RUNS-MODULE 


GOES-TO 
SYSTEM-GOES-TO-SYSTEM 
PROGRAM-GOES-TO-PROGRAM 
MODULE-GOES-TO-MODULE 


DERIVED-FROM 

DOCUMENT -DERIVED-FROM-F ILE 
DOCUMENT -DERIVED-FROM-DOCUMENT 
DOCUMENT -DERIVED-FROM-RECORD 
ELEMENT -DERIVED-FROM-F ILE 
ELEMENT -DERIVED-FROM-DOCUMENT 
ELEMENT -DERIVED-FROM-RECORD 
ELEMENT -DERIVED-FROM-ELEMENT 
FILE-DERIVED-FROM-DOCUMENT 
FILE-DERIVED-FROM-FILE 
RECORD-DERIVED-FROM-DOCUMENT 
RECORD-DERIVED-FROM-FILE 


ELE-CON-ELE 


PR 
USREC-PR-FILIL 
USR-PR-DOC 
USR-PR-REC 
USR-PR-ELE 
SYS-PR-FIL 
SYS-PR-DÜC 
SY S-PR-REE 
SI S-PREEBE 
PGM-PR-FIL 
PGM-PR-DOC 
PGM-PR-REC 
PGM-PR-ELE 
MDL-PR-FIL 
MDL-PR-DOC 
MDL -PR-REČ 
MDL -PR-ELE 


R-FOR 
USR-R-FOR-SYS 
USR-R-FOR-POM 
USR-R-FOR-MDL 
USR-R-FÜR-REC 
USR-R-FOR-DOC 
USR-R-FOR-REC 
USR-R-FOR-ELE 


RUNS 
USR-RUN-SYS 
USR-RUN-P6M 
USR-RUNS-MDL 


T0 
SYS-TO-SYS 
PGM-TO-P&M 
MDL-TO-MDL 


D-FR 
DOC-D-FR-FIL 
DOC-D-FR-DOC 
DOC=D=FR=REL 
ELE-D-FR-FIL 
ELE-D-FR-DOC 
ELE-D-FR-REC 
ELE-D=FR-ELE 
FIL-D-FR-DOC 
FIL-D-FR-FIL 
REC-D-FR-DOC 
REC-D-FR-FIL 
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PROCESSED-BY 


RESPONSIBILITY-0F 


RUN-BY 


COMES-FROM 


PRODUCES 


PR-BY 


R-OF 


RUN-BY 


FR 


PRD 


RECORD-DERIVED-FROM-RECORD REC-D-ERSREG 
CALLS CLS CALLED-BY CLD-BY 
PROGRAM-CALLS-PROGRAM PGM-CLS-PGM 
PROGRAM-CALLS-MODULE PGM-CLS-MDL 
MODULE-CALLS-MODULE MDL-CLS-MOL 
REPRESENTED-AS AS REPRESENTS REP 
ELEMENT -REPRESENTED-AS ELE-AS-BIT 
-BIT-STRING 
ELEMENT -REPRESENTED-AS ELE-AS-CHR 
-CHARACTER-STRING 
ELEMENT -REPRESENTED-AS ELE-AS-FIX 
-FIXED-POINT 
ELEMENT -REPRESENTED-AS ELE-AS-FLO 
-FLOAT 


ELEMENT - STANDARD -F OR- ELEMENT ELE-ST-FUOR-ELE 
(Inverse is: ELEMENT-STANDARD-OF-ELEMENT EPE-SISÜRCEDEES 
FILE-HAS-SORT-KEY-ELEMENT FIL-H-5-k-ELE 
(Inverse is: ELEMENT-SORT-KEY-OF-FILE ELE-S-K-OF Sale) 
FILE-HAS-ACCESS-KEY -ELEMENT FIL-H-A-K-ELE 
(Inverse is: ELEMENT-ACCESS-KEY-OF-FILE ELE-A-K-UF-FTDD 
A.ž ENTITY-TYPES AND RELATIONSHIP-TYPES 
The following two tables depict the entityr-type= 
particulatina as members of the non-security related 
relationship-types ¡in the Core Bystem-Standard Schema. The 
following notation in to denote that the entity-tvpe 13: 
1 The first member of the relationship-type. 


2 The second member of the relationship-trpe. 


F Both the first and second member af the 
relationship-type 


The first table shows the relatianzhip-types 


associated with the following entity-trpes: 


in 


USER 
SSE 
PROGRAM 
MODULE 
EILE 
DOCUMENT 
RECORD 
ELEMENT 


Ko KO KK K eK X 


LIE 


RELATIONSHIP-CLASS-TYPE 
AND 
RELATIONSHIP-TYPE 


CONTAINS 
SYSTEM-CONTAINS-SYSTEM 
SYSTEM-CONTAINS-PROGRAM 
SYSTEM-CONTAINS-MODULE 
PROGRAM-CONTAINS-PROGRAM 
PROGRAM-CONTAINS-MODULE 
MODULE-CONTAINS-MODULE 
FILE-CONTAINS-FILE 
FILE-CONTAINS-DOCUMENT 
FILE-CONTAINS-RECORD 
FILE-CONTAINS-ELEMENT 
DOCUMENT -CONTAINS-DOCLMENT 
DOCUMENT -CONTAINS-RECORD 
DOCUMENT - CONTAINS ELEMENT 
RECORD-CONTAINS-RECORD 
RECORD-CONTAINS-ELEMENT 
ELEMENT -CONTAINS-ELEMENT 


PROCESSES 
USER-PROCESSES-F ILE 
USER-PROCESSES-DOCUMENT 
USER-PROCESSES-RECORD 
USER-PROCESSES-ELEMENT 
SYSTEMCERÜLESSES-F ILE 
SYSTEM-PROCESSES-DOCUMENT 
SYSTEM-PROCESSES-RECORD 
SYSTEM-PROCESSES-ELEMENT 
PROGRAM-PROCESSES-FILE 
PROGRAM-PROCESSES-DOCUMENT 
MODULE-PROCESSES-RECORD 
PROGRAM-PROCESSES-ELEMENT 
MODULE-PROCESSES-FILE 
MODULE-PROCESSES-DOCUMENT 
MODULE-PROCESSES-RECORD 
MODULE -P ROCESSES-ELEMENT 


RESPONSI BLE-FOR 
USER-RESPONSIBILE-FOR-SYSTEM 
USER-RESPONSIBLE -FÜR-PROGRAM 
USER-RESPCNSTBLE-FOR-MODULE 
USER-RESPONS I BLE-FOR-RECORD 
USER-RESPONS I BLE-FOR-DOCUMENT 
USER-RESPONS I BLE-FOR-RECORD 
USER-RESPONSI BLE-FOR-ELEMENT 


bb ny bd pd 


br Inn donn sb nd Ind ona 
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En on zh we © 


PGM MDL FIL 
2 : 
. 2 
R . 
l 2 
R . 
R 
l 
1 
l 
2 
1 
l 2 
l 
1 
1 . i 
l Z 
l 
l 
l 
2 . 
. 2 . 
2 


DOC REC ELE 
2 
2 
s 9 2 
R : 
1 z 
1 : 2 
R : 
l 2 
R 
2 : 
2 : 
2 : 
2 : 
2 
Dn 
2 š 
2 
o 2 
A : 
2 ; 
d 
2 : 
2 


Ta >» 


RUNS 

USER-RUNS-SYSTEM l 2 : » : : : 
USER-RUNS-PROGRAM Í . 2 : : : . 
USER-RUNS-MODULE l . . 2 


B0ES-TO 

SrSTEM-60ES=T0=SYSTEM : R . 
PROGRAM-GOES-TO-PROGRAM . s R : 
MODULE-G0ES-TO-MODULE . : R 


DERIVED-FROM 

DOCUMENT -DERIVED-FROM-FILE : : : : R 
DOCUMENT -DERIVED-FROM-DOCUMENT . : ; . 
DOCUMENT -DERIVED-FROM-RECORD . : à 
ELEMENT -DERIVED-FROM-F ILE . : 
ELEMENT -DERIVED-FROM-DOCLMENT 

ELEMENT -DERIVED-FROM-RECORD c : : : : 
ELEMENT -DERIVED-FROM-ELEMENT : : | . 2 
FILE-DERIVED-FROM-DOCLMENT : . : : : 
PILE-PERIVEDPR ST [LE . . : 2 
RECORD-DERIVED-FROM-DOCUMENT . : : : 
RECORD-DERIVED-FROM-FILE ‘ : s . . . 7 
RECORD-DERIVED-FROM-RECORD c 


— 
PJ — 20 HD + 
A >> r" gy) a 


NI + 


pe r bun a a 


CALLS 

PROGRAM-CALLS-PROGRAM : : R 
PROGRAM-CALLS-MODULE s . ] 2 
MODULE-CALLS-MODULE : ° s R 


ELEMENT -STANDARD-F OR-ELEMENT . : : : : : : R 


FILE-HAS-SORT-KEY-ELEMENT : . . l : ' Z 


na 


FILE-HAS-ACCESS-KEVY -ELEMENT : : : s Í 


e not member z of 3 


The last three relationship-type= ar 
ted separetl. 


relationship-class, and so are lis 


The second table shows the relationship-tyrpes 
ociated with the following enti t»-tvpesz: 


ui 


a s 


= SSE il 
+ BIT- SIRING 
* CHARACTER-STRIMG 
* BU EU- Pe 
* FLOAT 
RELAT I ONSHI P-CLASS-TYPE 
AND 


RELATIONSHIP-TYPE ELE BIT el 


je 


REPRESENTED-AS 


ELEMENT -REPRE SENTED-AS-BIT-STRING IE Ps 

ELEMENT -REPRESENTED-AS-CHARACTER-STRING ES 2 OE 
ELEMENT -REPRESENTED-AS-FIXED-POINT NOT 2 ee 
ELEMENT-REPRESENTED-AS-FLOAT 1 2 


A.4 ATTRIBUTE-TYPES AND RELATIONSHIP-TYPES 

The following are the attribute-types assicaciated with 
the relationship-class-types and relationship-types in the 
Core System-Standard Schema: 


* The relationship-tvpes 
= Sí REM- PROGESSES-FIEE 
AP US- -PE UCESSES PILE 
IA ULESPEOLESS ES SRKILE 
have the single-valued attribute-type ACCESS-METHOL 
azsociated with them. 


* All PROCESSES and RUNS relationship-trpez have the 
single-valued attribute-typw FREGUENCT associated 
with them. 


# The relationship-t-pe RECORDS-CUMTAINS-ELEMENT has the 
sinale-valued attribute-type RELATIVE-POSITION 
associated vith it. 


* The relationship-type ELEMENT- REPRESEMNTED=AS=BI1- 
STRING hase the single-valued attribute-type LENGTH 
and the multiple-valued attribute-type USALE 
associated the it. 


ela cien ship=trpe ELEMENTSREPRESENTED-AS= 
CHARACTER-STRING has the single-valued 
attribute-types LENGTH and JUSTIFICATION and the 
multiple-valued attribute-type USAGE associated with 
it. 


* The relatioriship-tyxpes 
- ELEMENT-REPRESENTED-AS-FIXEO-POINT 
- ELEMENT-REPRESENTED-AS-FLOAT 
have the sinale-valued attribute-types LENGTH, 
PRECISION, and SCALE, and the multiple-valued 
attribute-type USAGE associated with them. 


2.5 SUPPORT FOR THE CORE SECURITY FACILITY 


In addition to the entityr-types DICTIONARY-USER and 
VIEW the Core System-Standard Schema also contains the 
relationship-type DICTIONARY-USER-HAS-VIEW, which assiciates 


^. 


= IPDS user with the views he/she may use. A number of 
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attributes-types and attribute-oroup-types in the Core 
System-Standard schema are used to specify the categories of 
permissions that can be assigned to a IRDS user with a 
particular view. 


A.6 THE ATTRIBUTE-TYPE-VALIDATION-PROCEDURE META ENTITIES 
The Core System-Standard Schema contains the following 
two attribute-type-validatian-procedure meta-entities: 


x RANGE-VALIDATION, used to restrict the attributes of a 
given attribute-type to a predefined set of ranges. 
x VWALUE-VALIDATION, used to restrict the attributes af x 


qiven attribute-type to 4a predefined set of values. 
A.” THE ATTRIBUTE-TYPE-VALIDATION-DATA META-ENTITIES 


There are no attribute-type-validation-data 
meta-entities specified in the Core Šystem-Standard Schema. 
To use this feature, an organization must define and add 
these meta-entities to the schema. 


6.2 THE LIFE-C 068 =- HE MEM rl pes 


The Core System-Standard Schema contains four 
Lite-Cycle-Phase meta-entities. These are: 


x  UMNCOMTROLLED-PHéASE — Entities are in this 
lite-cycle-phase when they are added ta the IFC. 

* CONTROLLED-PHASE - Entities used in an operational 
environment, for which structural integrity controls 
are provided b» the IEDS, are in this 
li te-cycle-phase. 


* ARCHIVED-PHASE - This life-cycle-phase i2 used to 
document those entities no longer in use 

# SECDURITY-PHASE - This life-cycle-phazse, af phase class 
UNCONTROLLED iz used far DICTIOGNARY-USER entities 
associated with the Security Facility of the Care 


Standard IRDS. 


A.? THE QUALITY-INDICATOR META-INTITIES 

The Core System-Standard Schema does not contain any 
pre-defined QUALITY-INDICATOR meta-entitiez. These 
meta-entities may be defined by an organization. 


A.18 THE VARIATION-NAMES META-ENTITIES 

There are also no pre-defined VARIATIGN-NAMES 
meta-entities in the Core System-Standard Schema. These 
meta-entities may be defined by an organization. 
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A.11 THE SCHEMA-DEFAULTS META-ENTITIES 

There is one SCHEMA-DEFAULTS meta-entity in the Core 
System-Standard Schema. This meta-entity, called 
EXISTING-SCHEMA-DEFAULTS, is used to establish minimum and 
maximum name lenaths and minimum and maximum attribute 
lengths in IRD. 
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APPENDIX B 
COMMAND SPECIFICATIONS 


SYNTAX: 
All words shown in captials are required. 
[] Optional 


user supplied 
May be repeated as required 
Schema Commands 


1.1 Schema Maintenance 
* Add Meta-Entity Command 


ADD META-ENTITY <Meta-entity-name> 
META-ENTITY-TYPE = <Meta-entity-type> 
WITH META-ATTRIBUTES 
C{<Meta-attribute-name> = <Initial valuer3]; 


* Modify Meta-Entity Command 


MODIFY META-ENTITY «Meta-entitv-name? 
WITH META-ATTRIBUTES 
{<Meta-attribute-name> = (¿new value>?>; 


* Delete Meta-Entity Command 
DELETE META-ENTITY <Meta-entity-name>: 
* Add Meta-Relationship Command 


ADD META-RELATIONSHIP 
FROM <Meta-entity-name-1> TO «4Meta-enti tv-name-2Z? 
WITH META-ATTRIBUTES 
C{<Meta-attribute-name> = <value>}]; 


* Modify Meta-Relationship Command 


MODIFY META-RELATIONSHIP 
FROM <Meta-entity-name-1> TO «4Meta-entitv-name-2? 
WITH META-ATTRIBUTES 
{<Meta-attribute-name> = <value>} 
C<Meta-entity-name-1> = ¿Meta-entity-name?] 
[<Meta-entity-name-2> = <Meta-entity-name>] 
[$4 “Meta-attribute-name> — <New-value>>l: 


* Delete Meta-Relationship Command 
DELETE META-RELATIONSHIP 
FROM <Meta-entity-name-1> TO <Meta-entity-name-2> 


WITH META-ATTRIBUTES 
[ € Meta-attribute-name> z <value?)]: 


PT 


* Replace Meta-Relationship Command 


REPLACE META-RELATIONSHIP 
FROM <Meta-entity-name-i> TO <Meta-entity-name-2> 
WITH META-ATTRIBUTES 
[ ( Meta-attribute-name-1> — (value?>)] 
BY FROM <Meta-entity-name-1)> TO <Meta-enti ty-name-3) 
WITH META-ATTRIBUTES 
Ci<Meta-attribute-name-2> = <value>d}]: 


* Modify Meta-Entity Name Command 


MODIFY META-ENTITY -NAME 
FROM <Meta-entity-name-1> TO <Meta-entity-name-2>: 


* Install Meta-Enti tv Command 
INSTALL <Meta-entity-name>; 
1.2 Schema Output Command 


* OUTPUT SCHEMA 
SELECT CALL) or Cimeta-entity-name-list>] 
(WHERE <restriction-expression> boolean operator 
śrestrictioncexpression?] 
[<Title>] 
[ SHOW ALL] or 
C SHOW ALL META-ATTRIBUTES or 
<Metar-attribute-list>] and/or 
[ SHOW ALL META-RELATIONSHIPS or 
«Meta-Felationships-list?] and/or 
[ROUTE TO <Destination-list>]: 


2. Dictionary Commands 
2,1 Dictionary Maintenance Commands 
* Add Entity Command 
ADD ENTITY <entity-name > 
ENTITY-TYPE = <entity-type>? 
WITH ATTRIBUTES 
C{<attribute-name?> = “Initial vualue22]; 


* Modify Entity Command 


MODIFY ENTITY <entity-name> 
[<<attribute-name> = «New value231]; 
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Delete Entity Command 


DELETE SENT iia 
[<Entity-name>] or 
[USING = <Entity-1list-name>] or 
[USING PROCEDURE = <Procedure-name>] or 
(SELECT WHERE <restriction-expression> boolean 
operator śrestriction-expression>]; 


Add Relationship Command 


ADD RELATIONSHIP 
<Entity-name-1> <Relationship-type> <Entity-name-Zz> 
WITH ATTRIBUTES 
C{<attribute-name> = <Initial value 3); 


Modity Relationship Command 


MODIFY RELATIONSHIP 
<Entity-name-1> <Relationship-type> <Entity-name-2> 
[tśattribute-name> = śMew value>2]; 


Delete Relationship Command 


MODIFY RELATIONSHIP 
[<Entity-name-1> <Relationship-type> <Entity-name-ż>] 
[XRelationship-list-name?1; 


Modify Access-Name Command 


MODIFY ACCESS-NAME 
* ¿Current accesS-name? TO (Mew access-name?; 


Modify Descriptive-Name Command 


MODIFY DESCRIPTIVE-NAME 
«Current descriptive-name? TO <New descriptive-name>; 


Modify Entity Life-Cycle-Phase Command 


MODIFY ENTITY LIFE-CYCLE-PHASE 
FOR <Entity-name> or <Entity-list-name> 
FROM <Current life-cycle-phase> TO “New life-cycle- 
phase?; 


Copy Entity Command 
COPY ENTITY <Entity-name> 
(WITH RELATIONSHIPS] 


TO «New enti ty-name? 
[DESCRIPTIVE-NAME = <Descriptive-name)] 
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[QUALITY = <Quality-indicator>]; 


2.2 Dictionary Output Commands 


* General Output Command 
OUTPUT DICTIONARY 
[USING VIEW = ALL] 
[USING VIEW = <view=name> or <view-name-list>] 
SELECT [ALL] or 
LENTITIES] 
(restriction-expression? 
«boolean operator» 
<restriction-expression> 
[SORT SEQUENCE = <sort-parm-list>] 
SHOW <show-options> 
[SHOW «Title»? 
[ROUTE TO <destination-lizt>] 
[ PROCEDURE-NAME = <procedure-name?; 


* Output Impact-of-Change Command 


OUTPUT IMPACT 
CUSING VIEW = ALL] 
[USING VIEW = <view=name> or <view-name-list>] 
SELECT [ALL] or 
[ENTITIES] 
(restriction-expression? 
(boolean operator? 
(restriction-expression? 
[SORT SEQUENCE = <sort-parm-list>] 
SHOW <show-options> 
[SHOW <Title> 
[SHOW LIFE-CYCLE-PHASEJ 
[SHOW QUALITY-INDICATOR] 
[SHOW ATTRIBUTES [ALLJ or [NG] or 
C<attribute-name>]] 
[ SHOW DESCRIPTIVE-NAME ] 
[ROUTE TO <destination-list>] 
[PROCEDURE-NAME = “procedure-name?]; 


* Output Syntax Commands 


QUTPUT SYNTAX 
[USING VIEW = ALL] 
[USING VIEW = <view=name> or <view-name-list>] 
SELECT [ALL] or 
[ENTITIES] 
(restriction-expression? 
(boolean operator? 
(restriction-expression? 
[SORT SEQUENCE = <sort-parm-list>] 
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SHOW <show-options> 


[SHOW <Title>] 
[SHOW LIFE-CYCLE-PHASEJ 


[SHOJ GUALITY- INDICATOR] 
[SHOW RELATIONSHIP <relationship-display-options?>] 
[SHOW RELATIONSHIP SYNTAX FOR EACH <entity-name>] 


CROUTE TO <destination-list>] 
[PROCEDURE-NAME = <procedure-name>]; 


2.3 Dictionary Entity-List Commands 
* Build Entity-List Command 


BUILD ENTITY-LIST 
SELECT [ALL] or 
LEMTITIES] 
<restriction-expression> 
<boolean operator> 
(restriction-expression? 
[LIST-NAME = <entity-list-name>] 
[USING VIEW = ALL] 
[USING VIEW = <view-name> or 
[PROCEDURE-MAME = <procedure-name>] 
[PROCEDURE-DESCRIPTION = <short-strina-literal>]; 


(view=name=list>] 


* Entity-List Union Command 


UNION 
<existing entity-list-name>, 
tśexistina entity-list-name>) 

= (new entitvy-list-name?; 


Entity-List Intersection Command 


INTERSECTION 
<existing entity-list-name?, 
{<existing entity-list-name>; 

= <new entity-list-name>; 


Entity-List Difference Command 


DIFFERENCE 
Centity-list-l-name>,<entity-list-z-name> 


= (new entity-list-name?; 


Entity-List Subtraction Command 


SUBTRACTION 
<entity~lList-l-name>,<entity-list-2-name> 


= (new entity-list-name?; 
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* Name Current Entity-List Command 
NAME CURRENT ENTITY-LIST <entity-list-name>; 
* Output Entity-List Command 


OUTPUT ENTITY-LIST 
[LIST-NAME = «enti ty-list-name»?] 
[SHOW <Title>] 
[ROUTE TO <destination-1ist>1; 


* Output Entity-List Names Command 


OUTPUT ENTITY-LIST NAME 
[SHOW <Title>] 
[ROUTE TO <destination-1ist>]; 


2,4 Dictionary Procedure Commands 
* Output Procedure Syntax command 


OUTPUT PROCEDURE SYNTAX 
ALL or <procedure-name> 
[SHOW <Title>] 
[ROUTE TO <destination-list>]: 


* Output Procedure Names Command 


OUTPUT PROCEDURE-NAME 
[SHOW PROCEDURE-DESCRI PTION] 
[ROUTE TO śdestination-list>l; 


« Run Qutput Procedure Command 


RUN GUTPUT PROCEDURE <procedure-name> 
[USING VIEW = ALL] 
CUSING VIEW = <view-name? or <view-name-list>] 
[ROUTE TO <destination-list>]; 


Run Entity-List Procedure Command 


RUN ENTITY-LIST PROCEDURE <procedure-name> 
CLIST-NAME = <entity-list-name>] 
[USING VIEW = ALL] 
[USING VIEW = (view-name? or <vieu-name-list>]: 


* Save Output Procedure Čommand 
SAVE OUTPUT PROCEDURE 


PROCEDURE-NAME = <procedure-name> 
[PROCEDURE-DESCRIPTION = <short-string-literal>], 
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* Save Entity-List Procedure Command 


SAVE ENTITY-LIST PROCEDURE 
PROCEDURE-NAME = <procedure-name> 
{ PROCEDURE-DESCRIPTION = £4short-strina-literal2]; 


* Delete Procedure Command 
DELETE <procedure-type> PROCEDURE <procedure-name> ; 
as General Commands 
3.1 IRD-IRD Interface Commands 
* (Create Dictionary Command 


CREATE DICTIONARY <new-dictionarv-name> 
(LOCATION CLAUSE <implementor-defined>] 
SCHEMA IS 
CIN DICTIONARY <dictionary-name> ] 
[IN FILE <file-name?] 
[STANDARD] 

[LOAD DICTIONARY FROM <file-name>]; 


* Export Dictionary Command 


EXPORT DICTIONARY 
(USING VIEW = ALL] 
[USING VIEW = <view-name> or “view-name-1i<t>] 
CUSING ENTITY-LIST= <Entity-list-name>] 
[EXCLUDE RELATIONSHIP OF [«relationship-tvpe?] ar 
[ <relationship-list-name>]] 
[SCHEMA EXPORT FILE = <export-file-name>] 
[SYNTAX = <short-string-literal>]: 


* Check Schema Compatibility Command 


CHECK SCHEMA 
[SOURCE] or [TARGET] SCHEMA IS 
LIN DICTIONARY <dictionary-name> ] 
CIN FILE <file-name>] 
ESTANDARD]; 


* import Dictionary Command 


IMPORT DICTIONARY 
SCHEMA EXPORT FILE = <export-file-name> 
DICTIONARY EXPORT FILE = 
<dictionary-export-file-name> 
CIN DICTIONARY <dictionary-name>] 
CIN FILE <file-name>] 
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[STANDARD ] 
LIFE-CYCLE-PHASE = (life-cvcle-phase-name?: 


3.2 Utility Commands 
* Set Session Default Command 


SET 
[VIEW = <view-name>] 
[MODE = <mode-type>] 
[SHOW ATTRIBUTES 
[ENCODED or DECODEDI] 
[tCCimplementor-defined-options?37] 
[SAVE]; 


* Session Status Command 


STATUS 

[ALL] 

[DICTIONARY] 
[ENTITY-LIST] 
[MODE] 
[VIEWS] 
[ PROFILES] 
[DEFAULTS] 
[C<implementor-defined-options)]: 


* Help Command 
HELP 
[ALL] 
[<command-imperative-substrina?]; 
* Exit Dictionary System Command 
EXIIS 
* Enter Panel Dialoque Command 


PANEL NAME = <panel-name>; 
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APPENDIX C 


BACHMAN CIAGRAMS 


USER 


SYSTEM 


PROGRAM 


MODULE 


DOCUMENT 


FILE 


RECORD 


ELEMENT 
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APPENDIX D 
SUPPORT OF STANDARD DATA MODELS 


This appendix describes the new entity=typas, 
relationship-types and attribure-types which can be added ta 
the IRD to allow the system to map into NOL and SOL data 
structures. (Ref 9, pages 145-28] 


D.1 NETWORD MODEL MAPPINGS 
The following tables describe the mappings between the 


generic entity-types of the Core IRD and the Network Made] 
entitiez and relationships. 





| MDL | IRD Generic Model | 
I Schema | Schema I 
| Subscema | Subscema I 
| Database | Database I 
I Record | Record x 
I Set | Set ! 
I Component I Element & | 
| Module | Module * I 
| Database Procedure I Program * I 
i Data Type | Element * I 
| I 





Schema-Defines-Database | 
Element-Associated-Wi th-Element | 


NDL l IRD Generic Model ++ | 
| Subschema in | Schema-Contains-Sc E | 
| Schema is | Schema-Contains-Se I 
I | Schema- Contains- B cond I 
I Owner 1s | Set-Qwner-Is-Record I 
| Members are | Set-Member-Ise-Record I 
| Contains | Record-Contains-Element I 
| ! Element-Contains-Element I 
| Identifier | Set-Has-Šort-Kev-Element | 
| | Fecordg-Redefine--Fecord 
I | 

I | 

I | 


* Note - these are already defined in the Core IRD3 
Standard. 


++ Mate — these MDL relationships are in addition to those 
appearing in the IRDS Specifications in the Čore IRDS. A 
relationship that is in the Core Standard doesnot appear 
here unless a different NDL relationship maps into it. 
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D.2 RELATIONAL MODEL MAPPINGS 


The following tables shows the mappings between the 
generic and Relational Model entities and relatianships: 


| de twor ata Mode appina - entity types | 
| — n sr v T n n Y tÇ =m OJ O A 
SGL l IRD Generic Model 
| | | 
| Schema | Schema | 
| Table | Record * | 
I Column | Element * I 
| Data Type I Element * | 
|. Query € Operations | Set I 
| (Join, rojection, A: | 
| 





Submodel id tables | Schema-Contains-Schema | 
| | Schema-Contains-Set | 
iz made up of Table | Schema-Contains-Eecord | 


| Element-Identifies-Element 
| Element-Identitiez-Pecord | 


| 
| 
I 
| 
| identified by | Record-Has-AÁcce=s-Kev-El|ement 
I 
| ie made up of Columns Record-Contains-Element | 
| 
| 


l Element-Aseociated—-With-Elementl 
| 


+ Mote — these are already defined in the Core IRDS 
Standard. 


++ Nate - these SQL relationships are in addition to those 
appearing tn the IRDS Specifications in the Core IRDS. Pñ 
relationship that ie in the Core Standard doesnot appear 
here unless a different NDL relationship maps into it. 
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D.3 ENTITY-TYPES AND RELATIONSHIP-TYPES 

The following table identify new and existing 
entity-types and gives their applicability to the SOL and 
NOL database models: 





I p- Matrix of Entity-Types I 
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D 
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as 
m 
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a 

© 
A1 
L 


[a e. C—O Sr Fa Em a. as o ÉÁ — E Z dl PP — | 


The following table identifies new and existirna 
relationship-types and gives their applicaabilit» to the SUL 
and NDL database models: 


I 

| Applicability Matrix of Relationship-Trpes | 
| IECEIRCEIRAEIRRRISCSISCTISOEISMRISORIEIRISDDIEIEIEAEISCRI 
| 

I 


al lll l llel ll elll 


New | | | | | | ! | | 
Relat- | Y Y i 
ionship | 
-type | 
| 


SGL I 


| 
I 
| 
| 
| Model | 
| 
| Mode | | 


lí “wa “maaa [am  waa “wa Wawa “w 


DESCRIPTION LEGEND: 


ECE = Relationship-Type "Element-Containz-Element" 
RCE = Relationship=Type "Record-Contains-Element" 
PAE = Relationship-T»pe "Record-Has-Access-Key-Element" 
RRR = Relationship-Type "Record-Redefinmes-Recard" 
SCS 2 Relationship-T»pe "Schema-Contains-Schema" 

SCT = Relationship-Type "Schema-Contains-Set" 

30E = Relationship-Type "Set-Has-Sort-key-Element" 
SMR = Relationship-Type "Set-Member-Is-Record" 

SOR = Relationship-Type "Set-Qwner—-Is-Record" 

EIR = Relationship-Type "Element-Identities-Record" 
SDD = Relationship-Type "Schema-Detinez-Database" 
EIE = Relationship-Type "Element-Identifties-Element" 


EAE Relationship-Type 


SCR = Relationship-Type 


"Element—-Associated-lWi th 
-El ement" 
"Schema-Contains-Record" 


D.4 ATTRIBUTE-TYPE ASSOCIATIONS 


The following table depicts 
attribure-types and the entity-types 


The "common" attribute-types defined as part ot the Core 
Standard IRD apply as well. 
| 
Applicability Matrix of Attribute-Types ta Entity-Typez 
| Attribute-Type IS ven Ren SE A 
| LANGUAGE | >x | | XxX | |o X | | 
| INITIAL-PQPULAT ION | | | X< | | | | 
| RATE-OF-ARRIVALS | | | >x | | I | 
| RATE-DE-DEPARTURES I | | x | | | I 
| RATE-OF-ACCESS | | | x< | | | | 
| RATE-OF-UPDATE | | +% 4 | | | 
| DEFAULT-CLAUSE | | | | E I 
| USAGE | X| Xl X SE 3 
| | | | | | | | 
DESCRIPTION LEGEND: 
SCH = Entity-tyrpe "SCHEMA" 
DBS = Entity-type "DATABASE" 
RED = Entitr-type "RECORD" 
SET =" ENG pem SET" 
ELM = Entity-type "ELEMENT" 
MDL = Entity-type "MODULE" 
PGM = Entity-type "PROGRAM" 


the association between 


to which they apply. 
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The following table shows the attribute-types 
associated with relationship-types: 


Applicability Matrix of attribute-types to Relationship-Types | 


mé ms m ww “a Qm “sm. wm s E A gm cm =) S mm es er es U ee === ——— == 
Ad e < mam <a Qw “m mm ww G O O ee ee ee ce ee te SD = —— O e e n ey ec ce ce ee S R e ee es ee ni Ea es ee ee c 


INSERT I ON-MODE 
oe 


DUPLICATES 


OCCURS-CLAUSE 
YER UAGE 


C 
zu 
L (2 o 
Oa cm M 1 
2s 
E 
UN 
m 


DESCRIPTION LEGEND: 


SMR 
RAE 
ERE 


SOE 
5C5 
SET 
SOR 
RRR 


Relationship-type 
Relationship-type 
Relationship-type 


Felationship-tyrpe 
Relationship-type 
Relationship-type 
Relationship-type 
Relationship-type 


P RS EAE UNA 


— — — m S S rs SR e 
^ 


| X | | | I | | | 

IX I | | | | | | 
X | I I I | | I | 
X | I I | | I | | 
X | | I I | | I | 

> | X | | | | 
X |! I | | | I | 

I I I | | | | 

I I | l | | | 

I | | | | | | 

l I | I I | | 


"SET-HMEHMBER-T SEEDS 
"RECORD=SA-AEFESSSFET ESENE m 
"ELEMENT -ASSOCTIATION-WITH 
ZEBEBPREbDIS 

"SET -HAS-S0ORT -kE ECENENTE 
"SCHEMA-CONTAINS-SCHEMA" 
"SCHEMA-CONTAINS-SET" 
"SET>OWNERZLSSRECETUES 
"RECORD=REDEFTNES"RECHED" 
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APPENDIX E 
IRDS PROTOTYPE SOFTWARE 

MAIN.PRG 
MODULE NAME: MAIN 
INPUT FILES: NONE 
OUTPUT FILES: NONE 
ROUTINES THAT CALL THE MODLUE: NONE 
ROUTINES THAT THE MODULE GALES BS 1.0 050 ODO 


0:20 

14.0: 08 O20 15.0. 070720 
LOCAL VARIABLES USED: 
choice : CONTAINS THE NUMBER OF ACTION SELECTED. 
one-time: USED TO INSURE THAT THE ASSOCIATED ROUTINE IS RUN ONLY ONCE. 
t : REPRESTENTS THE BOOLEAN TRUE IS USED TO- CREME 
test : USED TO ALLOW THE USER TO TEST FOR CAPS LOG DOWN: 
INPUI FILES: NONE 
OUTPUT FILES: NONE 
DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A-UKIRSCH LI 
BASIC FUNCTION OF MODULE: 
THIS PROGRAM STARTS THE INFORMATION RESOURCE DICTIONARY SYSTEM 
IT ALLOW THE USER TO CHOOSE WHICH FUNCTION WITHIN THE SY OIEH 
HE WOULD LIKE TO DO. 


SEI SAFETY OEE 
STORE .t. IO onem@eine 
DO WHILE one_time 


, 
, 


ha a 
OL 
OO 
oo 
oo 
OO 


OO OR OO OR OR OF OF OO OOF 


CLEAR 

STORE ' ! TO test 

@i1,1 SAY "MAIN" 

@ 2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@ 11,31 SAY "PLEASE INSURE THAT YOU" 

@ 12,31 SAY "HAVE THE ' CAPS LOCK '!'" 

@ 13,31 SAY "ON AS ALL ANSWERS TO" 

@ 14,31 SAY "QUESTIONS NEED TO BE" 

a 15,31 SAY "IN UPPER CASE" 

(4 17,31 SAY "TEST HERE!! 

@ 17,42 GET test 

@ 18,31 SAY "PRESS RETURN TO CONTINUE" 
READ 


à 0,1 SAY "MAIN" 

8 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM' 
@ 3,36 SAY "MAIN MENU" 

@ 6,22 SAY 12 DICTIONARY MAINTENANCE" 

@ 8,22 SAY 27 DICTIONARY OUTPUT: 

a 10722 Saves DICTIONARY QUERY" 

@ 12,22 SAY "4 SCHEMA MAINTENANCE" 

@ 14,22 SAY "5 SCHEMA OUTPUT" 

@ 16,22 SAY „© EXIT DICTIONARY SYSTEME 


@ 
ACCEPI P: ENTER YOUR CHOICE (1-6) FROM ABOVE: ' TO choice 


CASE cholce = "1" 
do 110000 

CASE choice = "2! 
DO 120000 

CASE choice = "3" 
DO 130000 

CASE choice = "4! 
DO 140000 

CASE choice = "5" 
DO 150000 

CASE choice = "6" 
CLEAR 

RELEASE ALL 
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RETURN 

OTHERWISE 

CLEAR 

@ 2,4 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 6 ONLY" 
@ 3,4 SAY "PRESS RETURN TO TRY AGAIN!" 

BEGEFI TO hold 

ENDCASE 

ENDDO 

RETURN 
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110000.PRG 

MODULE NAME: 1.1.0.0.0.6 
INPUT FILES: NONE 

OUTPUT FILES: NONE 


1124.0 0:0. 1ARE 0 D UN 
ROUTINES THAT THE MODULE CALLS:1.1.1.6.0.0, 1.1,2.0.0.0 11 CN 
1.1.4.0.0.0, 1.1.5. 0.06). sl] | 
LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED: 
t: REPRESTENTSTNO VALUE AT EE 
hold: USED TO STOP ACTION FOR USER DECISION. 
DESIGNED BY: ROBERT A. KIRSCHEN 
WRITTEN BY: ROBERI A IKIRSCHEN 
BASIC FUNCTION OF MODULE: 
THIS PROGRAM ALLOWS FOR THE MAINTENANCE OF ENTITY RELATIONS, 
AND RELATIONSHIP RELATIONS. 


do while .t. 


© 0,1 SAY 471050505 

G 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
G 3,31 SAY "MAINTENANCE MENU" 

(a 6,22 SAY D ADD ENTITY" 

8 ól ES Ama HOPE? ENTITY 

(a 

(a 


X AAA A AAA A AAA AAA AH 


109227923 DELETE TENA 
12,22- SAY d ADD RELATIONSHIP“ 
14,22 SAY "5 DELETE RELAIIONSHIP' 
@ 16,22 SAY "6 RETURN TO MAIN MENU" 
@ 17, 22 SAY it”: 
ACCEPTS ENTER YOUR CHOICE (1-6) FROM ABOVE: ' TO choice 


CASE choice = "1" 

do 111000 

CASE choice = "2" 

DO 112000 

CASE choice = "3" 

DO 113000 

CASE choice = "4! 

DO 114000 

CASE choice = "5" 

DO 115000 

CASE choice = "6" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

8 2,18 SAY choice 

Q 2,21 SAY "IS NOT A VALID CHOICE" 
@ 3,18 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 6 ONLY" 
@4,18 SAY "PRESS RETURN TO TRY AGAIN!" 
WAIT TO hold 

ENDCASE 

ENDDO 

RETURN 


bas 


ROUTINES THAT CALL THE MODLUE: MAIN, 1.1.1.0.0.0, 1.1.2.0.0.0, 1.1.3.0.0.0 


111000.PRG 
MODULE NAME: 1.1.1.0.0.0 
INPUT FILES: NONE 
OUTPUT FILES: NONE 
ROUTINES THAT CALL THE MODLUE: 1.1.0.0.0.0 
ROUTINES THAT THE MODULE CALLS:1.1.1.1.0.0, 1.1.1.2.0.0, 1.1.1.3.0 
MAIN | 
LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 
t: REPRESTENTS NO VALUE AT ALL. 
hold: USED TO STOP ACTION FOR USER DECISION. 
DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 
THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RALATION 
TO ADD TUPLES TO. 


sek color to 0/3,3 
set talk off 


3 % ob ob ob ob Ob % % 0 % % % % 2% 3h > 


M1 SAY "].1.1.0.0.0" 

1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
B 3 53Yy "ADD ENTITY" 

6,15 SAY E USER x FILE" 
SED SAY "2 SYSTEM 7 RECORD! 
WO 15 SAY "3 PROGRAM 8 ELEMENT" 

12,15 SAY "4 MODULE 9 RETURN TO PREVIOUS MENU" 
14,15 SAY > DOCUMENT 10 RETURN TO MAIN MENU" 
15.22 SAY “ | 
ACCEPT ' ENTER YOUR CHOICE (1-10) FROM ABOVE: ' TO choice 
SET EXACT ON 

DO CASE 

CASE choice = "1" 

do 111100 

CASE choice = "2" 

DO 111200 

CASE choice = "3! 

DO 111300 

CASE choice = "4" 

DO 111400 

CASE Sholce = "5" 

DO 111500 

CASE choice = "6" 

DO 111600 

CASE choice = "7" 

DO 111700 

CASE choice = "8" 

DO 111800 

CASE choice = "9" 

RETURN 

CASE choice = "10" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

@ 2,3 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 10 ONLY" 

@ 3,3 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 

ENDCASE 

ENDDO a 

RETURN 


(co (0) (oD) (p) (a) (o) (m (m 
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: J0; 
A O U. 1. 1.5.0.0, 1.1.1.6.0.0, 1.1.1.7.0.0, 1.1.1.8.0.0, 1.1.0.0.0.0 


AO % % OO Ob OF 


E 


X X X X X AH 


Ao e. e 


choice 


do while 


CLEAR 


@ 0,1 SAY 


G 1,22 
(399. 38 
@ 6,22 
A 7 22 
@ 8,22 
OPZZ 


SAY 
SAY 
SAY 
SAY 
SAY 
SAX 


IMS POQ PRG 

MODULE NAME : 1.1.1.1.0.0 

INPUT FILES |: USER 

OUTPUT FILES: USER 

ROUTINES THAT CALL. THE MODEUE ee 
ROUTINES THAT THE MODULE CALES: M IME 
LOCAL VARIABLES USED: 


: CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 


0.0.0 
ORO; 0 


CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED DELETEDTEFROMTORTOUTEUT: I 


: REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 


LOOP. 


INPUT FILES: USER 
OUTP URS STEERS USEK 


DESIGNED BY: ROBERT A 100 061 [I 

WRITTEN BY: ROBERT 5. BIRSCH IT 

BASIC FUNCTION OF MODULE: 

THIS PROGRAM ALLOWS THE USER TO ENTER NEW TUPLES TO THE USER RELATION: 


Lolo. AU 


"INFORMATION RESOURCE DICTIONARY SYSTEM" 
"ADD USER" 

"This program will allow you to enter" 
"additional tuples to the USER relation." 
"Instructions for entering data are! 
"provided at top of entry screen." 


© 10,22 > 
wait to choice 


SET MENU ON 


USE USER 


APPEND 


SEL MENU OFF 


RETURN 


13% 


X AAA AA AH AH HA HH £ 2 £ 2 2 £ * 


111200.PRG 

MOSNER NAME : 1.1.1.2.0.0 

NEDI FELES : USER 

SNUDPPUI FILES: USER 

FODNTNES TRAT CALL THE MODLUE: 1.1.1.0.0.0 

ROUTINES THAT THE MODULE CALLS:1.1.1.0.0.0 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
NOPIETED, DELETED FROM ÓR OUTPUT. 

E SSREPEBESEPBNTSSTHBECBOOEEAN IRUE IS USED TO CREATE A CONTINUES 
POOR, 

INSUTEFTLES: SYSTEM. 

BUNPOF FILES: SYSTEM. 

DESIGNED BY: ROBERT A. KIRSCH II 

NE IDEI] BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

1511 EROGRAMNOAELOWS PRE USER TO ENTEK NEW TUPLES TO THE SYSTEM RELATION. 


USE 


do while .t. 

CLEAR 

(a Ope say "1.1.1.2.0.0" 

@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
© 3,35 SAY "ADD SYSTEM" © 

© 6,22 SAY "This program will allow you to enter" 

à 7,22 SAY "additional tuples to the SYSTEM relation." 
@ 8,22 SAY "Instructions for entering data are! 

@ 9,22 SAY "provided at top of entry screen." 

@ 10,22 SAY " Ü" | 

wait to choice 

SET MENU ON 

Use SYSTEM 

APPEND 

SET MENU OFF 

RETURN 


LSB 


AAA AA AH ANA A HT Ok Ob Ob Ob OO Ok Ob > 


pS OO aE Re 

MODULE NAME 175133070 

INPUT FILES : USER 

OUTPUT FICES: T USER 

ROUT LINES THAT CALL THE MODEUE 1 1 51580 00) 

ROUTINES THAT THE MODULE CACCS 61 105 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED EROMPORAOUTBUES 

"t : OOP aS THE BOOLEAN TRUE IS USED TO CREAIE A COMTIMUES 
LOOP. 

INPUT FILES: PROGRAM. 

OUTPUT FILES: PROGRAM. 

DESIGNED BY: -ROBERT A. BIRSCH II 

WRITTEN BY: ROBHRI A. [15-611 11 

BASIC FUNCTION OF MODULE: 

THIS PROGRAM ALLOWS THE USER TO ENTER NEW TUPLES TO THE PROGRAM RELATION: 


USE 

set color ito, 07377 Uno 

set talk off 

do while .t. 

CLEAR 

( 0/1 SAY 1315008 

( 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
( 3,35 SAY "ADD PROGRAM" 

© 6,22 SAY "This program wil ikali vou to enter 

@ 7,22 SAY "additional tuples to the PROGRAM relation." 
@ 8,22 SAY "Instructions for entering data are" 

GO 9 2285AY "provided at top of entry screen." 

à 10,22 SAY " n 

wait to choice 

SET HENU ON 

USE PROGRAM 

APPEND 

SET MENU OFF 

RETURN 


NSE 


NA ARA AAA AAA AAA AA >+ 


111400.PRG 

NOBLE NA tE : 1.1.1.4.0.0 

MED BILES.: USER 

DEU FILES: USER 

KOURITNES THAT CALL THE MODLUE: 1.1.1.0.0.0 

BOWES. THAT THE MODULE CALLS:1.1.1.0.0.0 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHABACIEROSIRING TRAT IDENTIFIES TRE RELATION BEING ADDED TO, 
MODIFIED DELETED FROM OR OUTPUT. 

t SORE  RESTENTST TITHE BOOCEAN TRUE IS USED TO CREATE A CONTINUES 
LOOP. i 

PURUT FILES: MODULE. 

OUTPUT FILES: MODULE. 

PESEGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS PROGRAM ALLOWS THE USER TO ENTER NEW TUPLES TO THE MODULE RELATION. 


USE — 

do while .t 

CLEAR 

S SAS “1.1,1.4.0.0! 

© 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
© 3,36 SAY "ADD MODULE" | 

016 22 SAY This progra will allow you to enter". 
© 7,22 SAY "additional tuples to the MODULE relation." 
© 8,22 SAY "Instructions for entering data are" 

(a 9,22 SAY "provided at top of entry screen." 
E22 SAY | U 

wait to choice 

SET MENU ON 

USE MODULE 

APPEND 

SET MENU OFF 

RETURN 
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11500 ERG 

MODULE NAME : 1.1.1 5.0.9 

INPUT FILES : USER 

OUTPUT FILES: USER 

ROUTINES THAT CALL THE MODLUE: 1.1.1.0.0.0 

ROUTINES THAT THE MODULE CALLS: F F TORORO 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 

t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 


LOOP. 
INPUT FILES: DOCUMENT: 
OUTPUT FILES: DOCUMENT. 
DESIGNED BY: ROBERI A. KIRSCH II 
WRITTEN BY: ROBERTI À. KIRSCH II 
BASIC FUNCTION OF MODULE: 
THIS PROGRAM ALLOWS THE USER TO ENTER NEW TUPLES TO THE DOCUMENT RELATION. 


USE 

set color to 0/3 7/073 
set talk off 

do while .t. 


@ O71 SAY “1.4. 14530700 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

à 3,36 SAY "ADD DOCUMENT. 

(A 6,22 SAY "This program will allow you to enter" 

3 7,22 SAY "additional tuples to the DOCUMENT relation." 
(a 


ob ob 2h ANA T Ob Ob 3 Ob Ob Ob Ob Ob Ob Ae Ob 


8,22 SAY "Instructions for entering data are" 
9,22 SAY "provided at top of entry screen." 

@ 10 22 Say m 

walt to choice 

SET MENU ON 

USE DOCUMENT 

APPEND 

SET MENU OFF 

RETURN 
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111600.PRG 

MODUPESNAHE : 1.1.1.6.0.0 

IIT PILES : USER 

OULEUT PILES: USER 

ROO GENES THAT CALL THE MODLUE: 1.1.1.0.0.0 

ROUTINES TRAT TRE MODULE CALLS:1.1.1.0.0.0 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MSPTETED, DELETED FROM OR OUTPUT. 

t : ep AN Tg THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 
OOP. i 

EJEUA FTLES: FILE. 

GUPPHP FILES: FILE. 

DESIGNED BY: ROBERT A. KIRSCH II 

CRITIEN By: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

MIS PROGRAM ALLOWS TRE USER TO ENTER NEW TUPLES TO THE FILE RELATION. 


USE 

do while .t. 

CLEAR 

Ceremony U1.1.1.6.0.0" 

G 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
à 3,36 SAY "ADD FILE" | 

© 6,22 SAY "This program will allow you to enter" 
Ee Ta dditional túples to the FILE relation." 
© 8,22 SAY "Instructions for entering data are" 

a 9,22 SAY "provided at top of entry screen." 

tuu 22 SAY " UT 

wait to choice 

SET MENU ON 

USE FILE 

APPEND 

SET MENU OFF 

RETURN 
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111700.PRG 

MODULE NAME : 1-1.1. 0 0 

INRUIL FILES : USER 

OUTPUT FIGES: USER 

ROUTINES THAT CALL THE MOPLUE: 1.1 1 0 0 0 

ROUTINES THAT THE MODULE GCAULS:1 1.1.0104 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FFOURORIOU ILU D, 

t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 


LOOP: 
INPUT FILES: RECORD: 
OUTPUT FILES: “REGORB: 
DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: _ ROBERI A. FIRSCH TI 
BASIC FUNCTION OF MODULE: 
THIS PROGRAM ALLOWS THE USER TO ENTER NEW TUPLES TO THE RECORD RELATION. 


do while .t. 


(a 


OSA "i.p. 7-00 

1,22 SAY "INFORMATION RESOURCE DICTIONARY ISYSTEMS 
3,30 SAY "ADD RECORDI 

6,22 SAY "This program will allow you to enter! 

7,22 SAY "additional tuples to the RECORD relation." 
8,22 SAY “Instructions ton entering edatdeane: 

9,22 5AY "provided at top of entry screen." 

10;22 Wa 


wait to choice 
SET MENU ON 
USE RECORD 
APPEND 

SET MENU OFF 


RE 


TURN 
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111800.PRG 

HOOULE NAME : 1.1.1.8.0.0 

BISEUISBIDESC: USER 

OUIEUT FILES: USER 

POUTINES THAT CALL THE MODLUE: 1.1.1.0.0.0 

SOUTENES THAT THE MODULE CALLS:1.1.1.0.0.0 

gueice CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
HODIFIED,  DELETED FROM OR OUTPUT. 

t : DEC Mě THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 

OF. 

INPUT FILES: ELEMENT. 

OUTPUT FILES: ELEMENT. 

DESIGNED BY: ROBERT A. KIRSCH II 

WEBDIENSCBY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS PROGRAM ALLOWS THE USER TO ENTER NEW TUPLES TO THE ELEMENT RELATION. 


USE 

do while .t. 

CLEAR 

ERES SAT 0 1:1.1.9.0-08 

© 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
6 3,36 SAY "ADD ELEMENT" 

© 6,22 SAY "This program will allow you to enter" . 
@ 7,22 SAY "additional tuples to the ELEMENT relation." 
@ 8,22 SAY "Instructions for entering data are" 

@ 9,22 SAY "provided at top of entry screen." 

HOO 22 SAY " " 

walt to choice 

SET MENU ON 

USE ELEMENT 

APPEND 


SET MENU OFF 
RETURN 
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112000.PRG 

MODULE NAME: 1.122 010750 

INPUT FILES: NONE 

OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE: 1 1 0.00 
ROUTINES THAT THE MODULE CALLS babe IR 
1.1.2.4.0.0, 1.1.2.5.0.0 =o 


MAIN | 

LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 
t: REPRESTENTS NO VALUE AT ALL. 
hold: USED TO STOP ACTION FOR USER DECISION. 


or 
0.0, 1.1.2.2.0.0, 1.122550: 


INPUT FILE: MEM VAR. 
OUTPUT FILE: MEM VAR. 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RELATION 
TO MODIFY. 


A Ro 06 OF 06 06 % F e > > 





do while .t. 

CLEAR 

(G Il SAY "| 270000 

( 2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

( 4,35 SAY "MODIFY ENTITY" 

@ 7,15 SAY a USER a FIDE!: 

@ 9,15 SAY "2 SYSTEH 7 RECORD" 

@ 11,15 SAY sS PROGRAM 8 ELEMENT" 

a 13,15 SAY "4 MODULE 9 RETURN TO PREVIOUS MENU" 
@ 15/15 SAY "E DOCUMENT 10 RETURN TO MAIN MENU" 

© 16,22 SAY " ñ | 

o cii ENTER YOUR CHOICE (1-10) FROM ABOVE: ' TO choice 
O CA 


CASE choice — "1" , 
store 'USER' to choice 
save to mem_var 

do 112100 

CASE choice = "2! 

store 'SYSTEM' to choice 
save to mem var 

DO 112100 

CASE choice = "3" 

store 'PROGRAM' to choice 
save to mem var 

DO 112100 

CASE choice - "4" 

store 'MODULE' to choice 
save to mem var 

DO 112100 

CASE choice = "5" 

store 'DOCUMENT' to choice 
save to mem var 

DO 112100 

CASE choice = "6! 

store 'FILE' to choice 
save to mem_var 

DO 112100 

CASE choice = "7" 

store 'RECORD' to choice 
save to mem var 

DO 112100 

CASE choice = "8" 

store 'ELEMENT' to choice 
save to mem_var 

DO 112100 

CASE choice = "9" 

RETURN 

CASE choice = "10" 
RETURN TO MASTER 


145 


1. 1: 2./.0.0, 111 2.5.0 0 p E l: 10. 0 o 


OTHERWISE 

CLEAR 

@ 2,3 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 10 ONLY" 
A) 3 SA. PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 

ENDCASE 

ENDDO 

RETURN 
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T2100 PRG 

MODULE NAMÉ: 1.1.2.0.0.0 

INPUT FILES: NONE 

QUIPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE: 1.1.0. 
ROUTINES THAT THE MODULE CALLS: MIm 
1.1.2.4.0.0, 1.1.2.5:0:0: 1 15. o n 
MAIN 


LOCAL VARIABLES USED: 


0.050 
1.0.0, 1.1.2.2.0.0, 1.1, 38063 
, l.1.2.7.0.0, 1.1.2.5.0:0 -00m 


* 3 3 AXA XXX 


A 


DESIGNED BY: ROBERT A. RIRSCH II 

WRITTEN BY: ROBERTA. ORERSERSNI 

BASIC FUNCTION OF MODULE: 

THIS Ro a ALLOW THE USER TO CHOOSE WNEGRRITZFE OBPENTT RECANTON 
TO MODIFY. 


RESTORE FROM mem_var 

STORE 0 TO rec mum step 

CLEAR 

STORE .t. TO TRUE 

do while TRUE 

CLEAR 

© "0,1 SAL U 12120507 

@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@ 3,35 SAY "MODIFY ENTITY" 

( 7,24 SAY “ENTER TUPLE NUMBER OE THE“ 
a 7,51 SAY choice 


* choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
& CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
& MODIFIED, DELETED FROM OR OUTPUT. 
& hold : USED TO STOP ACTION FOR DUSERIDECTSTON 
& rec num : CONTAINS THE VALUE OF THE POINTER TO THE TUPLE TO BE CHANGED. 
& stop : USED TO STOP ACTION FOR USE: DECO IOS 
3 ie : n aa THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 
OOP. 
á INEUT EILE: TEMENA USER, SYSTEM, PROGRAM, MODULE, DOCUMENT, FILE, RECORDS 
* OUTPUT FILES: MEM VAR, USER, SYSTEM, PROGRAM, MODULE, DOCUMENT, FILE, RECORD? 
Ñ ELEMENT. 
* 
* 
* 
* 
* 


ACCEPT: YOU WISH TO MODIFY “ [O rec num 
IF (rec num <= '0') .OR. (rec num > '99999') 
CLEAR 


G 1,24 SAY rec num 

8 1,32 SAY "IS NOT A VALID RESPONSE" 
@ 2,23 SAY "TUPLE NUMBER MUST BE GREATER THAN O' 
@°3,23 SAY "AND LESS THAN 99999." 
WAIT TO stop 

ELSE 

STORE”, F TO S ERUE 

ENDIF 

ENDDO 

DO CASE 

CASE choice = 'USER'! 

USE USER 

EDIT(VAL( rec num)) 

RETURN . 

CASE choice = 'SYSTEM' 

USE SYSTEM 

EDIT(VAL(rec num)) 

RETURN 


CASE choice — "PROGRAM! 
USE PROGRAM 
EDIT(VAL(rec num)) 
RETURN . 

CASE choice = 'MODULE' 
USE MODULE 
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EDIT(VAL(rec num)) 
RETURN 

CASE choice = 'DOCUMENT' 
USE DOCUMENT 

PLN EL (rec. num) ) 
RETURN 

CASE choice = 'FILE' 
USE FILE 

AL rec_ num) ) 
RETU 

CASE aice = 'RECORD' 
USE RECORD 

EL (rec. num) ) 
RETU 

CASE RE = 'ELEMENT' 
USE ELEMENT 
EDIT(VAL(rec_num) ) 
RETURN 

@ 42,1 SAY "RETURN]" 
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 113000.PRG 
MODULE NAME: 1.1.3.0.0.0 
INPUT FILES: NONE 
OUTPUT FILES: NONE 
ROUTINES THAT CALL THE MODLUE: 1.1.0.0.0%0 
ROUTINES THAT THE MODULE CALLS:1.1.3.1.0.0, MAIN 
LOCAL VARIABLES USED: 
choice: CONTAINS THE NUMBER OF ACTION SELECTED ALSO USED TO TRANSFER THE 
RELATION NAME TO NEXT PROGRAM. 
t: REPRESTENTS NO VALUE AT ALL. 

hold: USED TO STOP ACTION FOR USER DECISION. 
INPUT FILE: MEM_VAR. 
OUTPUT FILE: MEM_VAR. 
DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A. KIRSCH If 
BASIC FUNCTION OF MODULE: 
THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTETZSREEANTEN 
TO MOD ERY. 


SET EXACT ON 
set color to 0/38 
set talk off 


MAXXA AA AXA SSE 


CLEAR 

do while .t 

ERASE mem var.mem 
CLEAR 


@ 1. 1 SAY "1;.1.3 0 050 
@ 2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM! 


@ 4,35 SAY "DELETE ENTITY" 

@ 7,15 SAY el USER x FILE“ 

GIS, SAS Ra SYSTEM 7 RECORD" 

a 105,15 SAY 3 PROGRAM 8 ELEMENT" 

@ 13,15 SAY "4 MODULE 2 RETURN TO PREVIOUS MENU" 
Gril; lo: SAY “5 DOCUMENT 10 RETURN TO MAIN MENU" 

@ 16,22 SAY " "Ü 

ACCEPT ' ENTER YOUR CHOICE (1-10) FROM ABOVE: ! TO choice 
DO CASE 


CASE choice = "1!" 

store 'USER' to choice 
save to mem var 

do 113100 

CASE choice = "2! 

store 'SYSTEM' to choice 
save to mem var 

DO 113100 

CASE choice = "3" 

store 'PROGRAM' to choice 
save to mém var 

DO 113100 

CASE choice = ''4!! 

store 'MODULE' to choice 
save to mem var 

DO 113100 

CASE choice = "5" 

store 'DOCUMENT' to choice 
save to mem var 

DO 113100 

CASE choice = "6" 

store 'FILE' to choice 
save to mem_var 

DO 113100 

CASE choice = "7" 

stcre 'RECORD' to choice 
save to mem_var 

DO 113100 

CASE choice = "8" 

store 'ELEMENT' to choice 
save to mem_var 
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DO 113100 
CASE choice = "9! 

RETURN 

CASE choice = "10" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

@ 2,18 SAY choice | 

[121.21 SA“ “TS NOT A VALID CHOICE 

@ 3,18 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 10 ONLY" 
@ 4,21 SAY "PRESS RETURN TO TRY AGAIN!" 
ACCEPT TO hold 

ENDCASE 

ENDDO 

RETURN 
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113100.PRG 

MODULE NAME: oi. 10.0 

INPUT FILES: NONE 

OUTPUTSEIDESSSNONE 

ROUTINES THAT CALL THE MODLUE: 1.1.0 0 0 0 

ROUTINES THAT THE MODULE CALLS 171725000 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. 

t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE SA CONINIURES 


LOOP. 
stop s USED TO STOP ACTION FOR USER DECISION. 
erus : USED AS A BOOLEAN VALUE IN LOOPS. 


rec_num : CONTAINS THE VALUE REPRESENTING THE RECORD CHANGED. 

INPUT FILES: USER, SYSTEM, PROGRAM, MODULE, DOCUMENT, FILE, RECORD ASEENENE 
OUTPUT FILES: USER, SYSTEM, PROGRAM, MODULE, DOCUMENT, FILE, RECORD EEE 
mem var .mem 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: "ROBERT A. TKITRSCHSTI 

BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RELATION 

TO DELETE TUPLES FROM. 


SET MENU ON 

RESTORE FROM mem_var 
STORE O 10 recenúm, stop 
CLEAR 

STORE |t. TO TRUE 

do while TRUE 


25 26 25 b 


G 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@ 3,35 SAY "DELETE ENTITY" 

a 7,24 SAY "ENTER TUPLE NUMBER OF THE" 

© 7,51 SAY choice 

© 8,24 SAY "TUPLE YOU WISH TO HAVE DELETED." 

(a 9,24 SAY "THE RECORD WILL BE DISPLAYED" 

(a 10,24 SAY "FOR YOU TO EXAMINE. IF YOU ARE" 

( 11,24 SAY "SURE THAT YOU ARE DELETING THE" 

@ 12,24 SAY "RIGHT RECORD DEPRESS -U .. " 

@ 14,24 SAY "IF YOU DO NOT WANT IT DELETED DEPRESS" 
@ 16,24 SAY "'O' TO RETURN TO MAINTENANCE MENU." 
ACCEPT" ENTER THE TUPLE NUMBER NOW *' TO rec num 
IF rec num > "999991 


@ 1,24 SAY rec_num 

@ 1,32 SAY "IS NOT A VALID RESPONSE" 
@ 2,23 SAY "TUPLE NUMBER MUST BE GREATER THAN 0" 
@ 3,23 SAY "AND LESS THAN 99999." 
WAIT TO stop 

ELSE 

IF REC NUM <= "0! 

RETURN 

STORE LE- TO TRUE 

ENDIF 

ENDDO 

DO CASE 

CASE choice = 'USER' 

USE USER 

EDIT(VAL( rec num)) 

RETURN 

CASE choice = 'SYSTEM' 

USE SYSTEM > 
EDIT(VAL(rec num)) 

RETURN 

CASE choice = 'PROGRAM' 

USE PROGRAM 

EDIT(VAL(rec num)) 

RETURN 
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CASE choice = 'MODULE' 
USE MODULE 
EDIT(VAL(rec_num) ) 
RETURN ` 

CASE choice = 'DOCUMENT' 
USE DOCUMENT 
EDIT(VAL(rec num)) 
RETURN ` 

CASE choice = 'FILE' 
USE FILE 
EDIT(VAL(rec_num) ) 
RETURN . 

CASE choice = 'RECORD' 
USE RECORD 
EDIT(VAL(rec_num) ) 
RETURN 

CASE choice = "ELEMENT! 
USE ELEMENT 
EDIT(VAL(rec_num) ) 
RETURN 

ENDCASE 
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114000.PRG 

MODULE NAME: 1.1.4.0.0.0 

INPUT FILES: NONE 

OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE: 1.1.0.0.0.0 

ROUTINES THAT THE MODULE CALLS:1.1.4.1.0.0, MAIN 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 


hold ; USED TO STOP THE SCREEN OUTPUT FOR A USER DECISION. 

t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 
LOOP. 

title : CONTAINS THE CHARACTER STRING THAT DESCRIBES THE RELATIONSHIP 


BEING ADDED TO, DEEETEBD"PRONEORFEUIEPUW 
INPUTAFILES: METR 
OUTPUT EPDES: HEMSVAK 
DESIGNED BY: ROBERT TKIR CHII 
WRITTEN BY: ROBERT A. KIRSCHT 
BASIC FUNCTION OF MODULE : 
THIS MODULE ALLOW THE USER TO CHOOSE WHICH RELATIONSHIP HE WOULD 
LIKE TO ADD TUPLES TO: 


X X+ X+ X A AA A OE OF OE OE OE OE OE OE OE OF OE OP OF Dh >+ 


ERASE mem var.mem 
CLEAR 


(a 0,1 SAY “Mol. 4000 
@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@ 3,32 SAY "ADD TO RELATIONSHIP' ` 
(a 5, 9 SAY P USER CONTAINS SYSTEM 8) FILE CONTAINS RECS 
@ 5,64 SAY "ORDS" 
@ 7,9 SAY "2) SISTEM CONTAINS PROGRAM 9) RECORD CONTAINS E" 
@ 7,64 SAY "LEMENT" 
@ ° Ə Say 35 PROGRAM PROCESSES FILE 10) USER RESPEOMSIELE” 
@ 9,64 SAY "FOR SYSTEM! 
@ 11,9 SAY "4) PROGRAM PROCESSES RECORD TE) USER RESPONSIBLE" 
@11,64 SAY "FOR FILE" 
@ 13,9 SAY 15) PROGRAM PROCESSES ELEMENT 12) PROGRAM PRODUCES" 
@ 13,64 SAY "DOCUMENT" 
G 15 9 SAY NS) SYSTEM CONTAINS PROGRAM 13) RETURN TO PREVIOU“ 
(a 15, 64 SAY "S MENU" 
@ 17,9 SAY "7) PROGRAM CONTAINS MODULE 14) RETURN TO MAIN ME" 
@ 17,64 SAY "NU" 
@ 18,22 SAY "A f 
SES ENTER YOUR CHOICE (1-14) FROM ABOVE: ' TO choice 

O CASE 


CASE choice - "pu 

Store 'U PROC S' to choice 

store 'USER-PROCESSES-SYSTEM' TO title 
save to mem var 

do 114100 

CASE choice = "2! 

store 'S PROC P' to choic 

store 'SYSTEM-PROCESSES- PROGRAM! TO title 
save to mem var 

do 114100 

CASE choice = "3! 

store 'P PROC F' to choice 

store 'PROGRAM-PROCESSES-FILE' TO title 
save to mem var 

do 114100 

CASE choice = "4! 

Store 'P PROC Rijjeomenoice 
store 'PROGRAM-PROCESSES-RECORD' TO title 
save to mem_var 

do 114100 

CASE choice = "5" 
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slote  PNFROC E! to choice | 
store 'PROGRAM-PROCESSES-ELEMENT' TO title 
save to mem var 

do 114100 

CASE choice = "6" 

store 'S CONT P' to choice 
store 'SYSTEM-CONTAINS-PROGRAM' TO title 
save to mem var 

do 114100 

© EE cholce = "7" 

slote P CONT M' to choice | 
store 'PROGRAM-CONTAINS-MODULE' TO title 
save to mem_var 

do 114100 

CASE choice = "8" 

store 'F CONT R" to choice 

store 'FILE-CONTAINS-RECORD' TO title 
save to mem var 

do 114100 

CASE choice = "9" | 

store 'R CONT E! to choice 
store 'RECORD-CONTAINS-ELEMENT' TO title 
save to mem var 

do 114100 

GASENWChoice = "10" 

Stone, U-RESP.S' to choic | 
store 'USER-RESPONSIBLE- TEOR- -SYSTEM' TO title 
save to mem_var 

do 114100 

CASE choice = "11" 

store 'U_RESP_F' to choice | 
store 'USER-RESPONSIBLE-FOR-FILE' TO title 
save to mem_var 

do 114100 

CASE choice = "12" 

Store 'P.PROD D' to choice 

store 'PROGRAM-PRODUCES-DOCUMENT' TO title 
save to mem var 

do 114100 

ČASE choice = "13" 

RETURN 

CASE choice = "14! 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

@ 1,21 SAY choice 

ORS SAV "IS NOT A VALID CHOICE" 

(© 2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 14 ONLY" 
a 3,20 SAY "PRESS RETURN TO TRY AGAIN!" 
ACCEPT TO hola 

ENDCASE 

ENDDO 

RETURN 


154 


114100.PRG 

MODULE NAME: 1.1.4.1.0.0 

INPUT FILES: NONE 

OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE: 1.1.4.0.0.0 

ROUTINES THAT THE MODULE CALL5:1.1.2 00 9 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED EFEROM OR OUT UT. 


hold : USED TO STOP ACTION, EORSUSERSBPECTZTONE 

t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTENUES 
LOOP. 

title : CONTAINS THE CHARACTER STRING THAT DESCRIBES THE RELATIONSHIP 


BEING ADDED TO, DELETED FROM OR OUTPUT. 
INPUT FILES: MEM VAR, USER, SYSTEM, PROGRAM; MODULE; DOCUMENT. OBIPEPSBBOCODEE 
ELEMENT, U. CONTS, U CONT S: Ú CONT ME P PROC EE P PROC RP) 
P PROC R. P PROC TER IS _ CONT P, P _CONT _M, F _ CONT _R, R CONT E, 
U RESP S, U RESP F, P PRED D. 
OUTPUT FILES: MEM_VAR, USER, SYST, PROGRAM, MODULE, DOCUMENT, FILE, RECORD, 
ELEMENT, TEMP U CONTS, US CONT 5, U CONT m PROC. F, FEBROE ES 
P PROC iu P PROC E. S CONT P, 7P CONT M, F CONT R, R CONT E, 
U RESP S, U RESP F, P PRED mp" 


A Dr X X >> X X X X X 


* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW FOR THE ACTUAL INPUT OF ADDITIONAL TUPLES TO THE 
d RELATIONSHIP RELATION SELECTED. 

CLEAR 

do while .t. 

RESTORE FROM mem var 

CLEAR 


G 0,1 SAY 011.4 1.0.0) 
(a 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@ 3,32 SAY "ADD RELATIONSHIP" 
@ 8,22 SAY "YOU ARE ABOUT TO BEGIN ADDING TUPLES" 
@ 9,22 SAY “TO Tae! 

@ 9,30 SAY TITLE 

(a 10, 22 SAY "RELATION" 
WAIT TO STOP 

DO CASE 

CASE choice = "U PROC S! 
USECUSBEOS S 

APPEND 

RETURN 

CASE choice = "S PROC P" 
USE S FEROCE 

APPEND 

RETURN 

CASE choice = "P PROC F' 
USE P PROC F 

APPEND 

RETURN 

CASE choice = "P_PROC_R" 
USE P PROC R 

APPEND 

RETURN 

CASE choice = "P PROC E" 
USE P PROCHE 

APPEND 

RETURN 

CASE choice = "S_CONT_P" 
USE S CONT P 

APPEND 

RETURN 

CASE choice - "P CONT M" 
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USE P CONT M 

APPEND 

RETURN ` 

a -E choice — "F CONT R" 
USE 5 CONT R 

APPEND 

RETURN ` 

CASE choice s "R CONT E“ 
USE R CONT E' 

APPEND 

RETURN 

CASE "choice = "U RESP S" 
USE U RESP S 

APPEND 

RETURN 

CASE choice = "U RESP F" 
USE U RESP F 

APPEND 

RETURN 

CASE choice = "P PROD D" 
USE P PROD D 

APPEND 

RETURN 

CASE choice = "13" 
RETURN 

CASE choice = "14" 
RETURN TO MASTER 
OTHERWISE 

CLEAR 

@ 1,21 SAY choice 

@ 1,28 SAY "IS NOT A VALID CHOICE" 
@ 2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 14 ONLY" 
@ 3,20 SAY "PRESS RETURN TO TRY AGAIN!" 
AESBPI TO hola 

ENDCASE 

ENDDO 

RETURN 
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115000.PRG 

MODULE NAME: 1.1.,5.0.0.0 

INPUT FILES: NONE 

OUTPUT FILES: TNONE 

ROUTINES THAT CALL THE MODEÉUE: 1.1.0.0 € 

ROUTINES THAT THE MODULE CAĽLS:l.l.5.1 06 O MAIN 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 

` CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED ERONNORZCUREUAE 


hold : USED TO STOP ACTION FOR USER DECISiG 

t : REPRESTENTS THE BOOLEAN TRUE I5 USED TO CREATE A CONTINUES 
LOOP. 

title : CONTAINS THE CHARACTER STRING THAT DESCRIBES THE RELATIONSHIP 


BEING ADDED TO, DELETED EROM OR T OUIPUI 
INPUT FILE ODE ak 
OUTPUT FILES AMENA 
DESIGNED BY: ROBERI A. [0-0] [8 
WRITTEN BY: ROBERI A. KIRSCH II 
BASIC FUNCTION OF MODULE: 
THIS MODULE ALLOW THE USER TO CHOOSE WHICH RELATIONSHIP HE WOULD 
LIKE TO DELETE LUBEES EhORR 


A AREA AA A 2> A AA A A A A A A AAA AH 


do while .t. 

ERASE mem_var.mem 

CLEAR 

d 0,1 SAY "1.1.5.0.,0505 

@ 1, ,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@ 3,29 SAY "DELETE FROM RELATIONSHIP” 

(a 5,9 SAY "1) USER CONTAINS 0 IE 8) FILE CONTAINS REC" 
@ 5,64 SAY "ORDS" 

(a S SAV 02) SYSTEM CONTAINS PROGRAM 9) RECORD CONTAINS E" 
G 7,64 SAY "LEMENT" 

@ 9 9 SAY '3) PROGRAM PROCESSES FILE 10) USER RESPONSIBLE" 
G 9,64 SAY "FOR Sys FEM) 

G 11,9 SAY "4) PROGRAM. PROCESSES RECORD U) USER RESPONSIBLE" 
@ 11,64 SAY "FOR FILE" 

@ 13. 9 SAY "5) PROGRAM PROCESSES ELEMENT 12) PROGRAM PRODUCES" 
@ 13,64 SAY "DOCUMENT" 

@ 15,9 SAY 6) SYSTEM CONTAINS PROGRAM 13) RETURN TO PREVIOU"' 
@ 15,64 SAY "S MENU" 

G 17 S SAY N) PROGRAM CONTAINS MODULE 14) RETURN TO MAIN ME" 
(a 17,64 SAY "NU" 

@ 18,22 0 

O CASH“ ENTER YOUR CHOICE (1-14) FROM ABOVE: ' TO choice 

D AS 


CASE choice = "l" 

store 'U PROC 59 to choice 

store 'USER-PROCESSES-SYSTEM' TO title 
save to mem_var 

do 115100 

CASE choice = 2! 

store 'S PROC P' to choice 

store 'SYSTEM-PROCESSES-PROGRAM' TO title 
Save to mem var 

do 115100 

CASE choice = "3" 

store 'P_ PROC F' to choice 

store 'PROGRAM-PROCESSES-FILE' TO title 
save to mem_var 

do 115100 

CASE choice = "4" 

Store 'P PROC R! to choi 

store 'PROGRAM- PROCESSES- RECORD! TO title 
save to mem var 

do 115100 

CASE choice = "5! 

store "P_ PROCS Stosenouce 
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store 'PROGRAM-PROCESSES-ELEMENT' TO title 
save to mem var 

do 115100 

s SE) cholce = "6" | 

socre S*CONT_P' to choice | 
store 'SYSTEM-CONTAINS-PROGRAM' TO title 
save to mem var 

do 115100 

CASE choice = "7" | 

score P CONT 1" to choice 
store 'PROGRAM-CONTAINS-MODULE' TO title 
save to mem_var 

do 115100 

ERSE choice = "8" 

EOB VE.CONT R" to choice 

store 'FILE-CONTAINS-RECORD' TO title 
Save to mem_var 

do 115100 

CG SE choice = "9" , 

store 'R CONT E' to choice ! 
store 'RECORD-CONTAINS-ELEMENT' TO title 
save to mem_var 

dö 115100 

CASE choice = "10" 

seeme U RESP S! to choice | 
store USER-RESPONSIBLE-FOR-SYSTEM TO title 
save to mem var 

do 115100 

ESSE choice = "11" I 

stone. "U RESP F' to choice , 
store 'USER-RESPONSIBLE-FOR-FILE' TO title 
save to mem_var 

do 115100 

CASE choice = "12" 

store 'P PROD D' to choice 
store 'PROGRAM-PRODUCES-DOCUMENT' TO title 
save to mem var 

do 115100 

CASE choice = "13" 

RETURN 

CASE choice = "14! 

RETURN TO MASTER 

OTHERWISE 

CLEAR f 

REZ le say choice 

001920 SAY IS NOT A VALID CHOICE™ 

@ 2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 14 ONLY" 
OZO SAY (PRESS RETURN TO TRY AGAIN!" 
BOCEBT TO hold 

ENDCASE 

ENDDO 

RETURN 
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115100.PRG 
MODULE NAME: 1.1.,5.1.0.0 
INPUT FILES: NONE 
OUTPUT FILES: NONE 
ROUTINES THAT CALL THE MODLUE: 1.1.5 0.0.0 
ROUTINES THAT THE MODULE CALLS:1 1.5 6 0 0 
LOCAL VARIABLES USED: 
choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED EROM OR OD I DU 
hold : USED TO STOP ACTION -EORUUSERSDESBS SON: 
rec num : CONTAINS THE VALUE OF THE POINTER TO THE TUPLE, [OVE ese u 
t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 
LOOP. 
title : CONTAINS THE CHARACTER STRING THAT DESCRIBES THE RELATIONSHIP 
BEING ADDED TO, DELETEDTPRONTORSOUT FUT: 
INPUT FILES: MEMU CONTS, U CONT S, U CONT P, P PROCITE P PERO SES 
P PROC R. P _ PROC EROS _ CONT P, P _CONT "ME _CONT R, R _CONT E 
U RESP S, U RESP F, P PRED BD. 
OUTPUT FILES: MEM VAR, U_CONTS, 0. CONT S, U CONT P, P PROC F, P PROC R, 
P PROC RE P PROC E. S CONT P, P CONT M, F CONT. R, R CONLIE; 
U RESP S, U RESP F, P PRED D. 


DESIGNED BY: ROBERT A051 TT 

WRITTEN BY: ROBERT A. FIFXCH TL 

BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW FOR THE ACTUAL DELETION INPUT OF ADDITIONAL TUPLES 
FROM THE DESIGNATED RELATIONSHIP FILE SELECTED. 


do while .t. 

RESTORE FROM mem_var 

CLEAR 

0,1 SAY "1.1.5 9009 

1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
3,29 SAY "DELETE FROM RELATIONSHIP" 

8,21 SAY "ENTER TUPLE NUMBER OF THE" 

10,24 SAY TITLE 

12,21 SAY "TUPLE THAT YOU WISH TO RAVE DELETED." 
13,21 SAY "THE TUPLE WILL BE DISPLAYED FOR" 
14,21 SAY "YOU TO EXAMINE. IF YOU ARE" 
15,21 SAY “SURE THAT YOU ARE DELETING THE" 
16,21 SAY "RIGHT TUPLE, DEPRESS ~U.. IE” 
17,21 SAY "YOU DO NOT WANT IT DELETED," 
18,21 SAY "TYPE O FOR TUPLE NUMBER" 

19,21 SAY "TO RETURN TO PREVIOUS MENU." 

ZU ZE Say wad 

ACCEPT: ENTER THE TUPLE NUMBER NOW ' TO rec_num 
DO WHILE rec num © 10 

DO CASE 

CASE choice se DU PROCESS 

USE U PROC S 

GOTO (VAL(rec num)) 

EDIT 

RETURN 

CASE choice = "S_PROC_P" 

USE S_PROC_P 

GOTO (VAL(rec num)) 

EDIT 

RETURN 

CASE choice = "P PROC F" 

WSE PF FROG OH 

GOTO (VAL(rec num)) 

EDIT 

RETURN 

CASE choice = "P PROC R" 

USE P PROC R 

GOTO (VAL(rec num)) 

EDIT 


» ob ob ok 3F OE OF OE OE OE OE OE OF OE OE OE OE OR FO >> X 


X * * * * * 


(OOM (o 
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RETURN ` 
C Pucho Ice = "P PROC E" 
USE P PROC E 

GOTO (VAL(rec_num) ) 

EDIT 

RETURN 

CASE choice = "S CONT P" 
USE S CONT P 

GOTO (VAL(rec num)) 

EDIT 

RETURN 

CASE choice = "P CONT M" 
USE P. CONT M 

GOTO (VAL(rec num)) 

EDIT 

RETURN 

15“ choice — TLE CONT R" 
USE F CONT R 

GOTO (VAL(rec_num) ) 

EDIT 

RETURN 

posschoice - "R CONT E" 
USE R CONT E 

GOTO (VAL(rec num)) 

EDIT 


RETURN 

G SE chol1ce = “U RESP S" 
USE U RESP S 

GOTO (VAL(rec num)) 

EDIT 

RETURN 

CBS: choice — “U RESP F" 
USE U RESP F 

GOTO (VAL(rec num)) 

EDIT 

RETURN 

CASE choice = "P PROD D 
USE P PROD D 

GOTO (VAL(rec_num) ) 

EDIT 

RETURN 

ENDCASE 

ENDDO 

RETURN 


160 


Z OO OO OO OR OR OO OR Ob OO > > 


120000.PRG 

MODULE NAME: 1.2.0.0.0.0 

INPUT FIEES: NONE 

OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE: MAIN 

ROUTINES THAT THE MODULE CARES a OO MIS 

LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 
t: REPRESTENTS NO VALUE AT ALL. 
hold: USED TO STOP ACTION FOR USER DECISION. 

DESIGNED BY: ROBERTIA TKI: SCHE 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS PROGRAM ALLOWS THE USER TO SELECT ENTITY RELATIONS, 

AND RELATIONSHIP RELATIONS FOR OUTPUT. 


do while .t. 

CLEAR 

Qa 0.1 SAY "1.2.0 -070m0 

(4 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
G 3,31 SAY "DICTIONARY OUTPUT" 

Q 6,22 SAY al ENTITY 

@ 8 22 SAY 72 RELATIONSHIP" 

@ 10,22 SAY 13) RETURN TO MAIN MENU" 

(A. 01 22 SAV hi 

ACCEPT ' ENTER YOUR CHOICE (1-3) FROM ABOVE: ! TO choice 
DO CASE 

CASE choice = "I" 

do 121000 

CASE choice = "2" 

DO 122000 


CASE choice = "3" 

RETURN TO MASTER 

OTHERWISE 

CLEAR | 

© 2,18 SAY choice 

@ 2,21 SAY "IS NOT A VALID CHOICE" 
@3,18 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 
Q 4,18 SAY "PRESS RETURN TO TRY AGAIN!" 
ACCEPT TO hold 

ENDCASE 

ENDDO 

RETURN 
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121000.PRG 

MODULE NAME: 1.2.1.0.0.0 

INPUT FILES: NONE 

OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE: 1.2.0.0.0.0 

ROUTINES THAT THE MODULE CALLS:1.2.0.0.0.0, 1.2.1.1.0.0 MAIN 

LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

t: REPRESTENTS NO VALUE AT ALL. 

i hold: USED TO STOP ACTION FOR USER DECISION. 

INPUT FILE : MEM VAR. 

OUTPUT FILE: MEM VAR 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RELATION 

TO OUTPUT. 


AAA AAA AA AAA ANA AAA 


dosvhjle .t. 
ERASE mem var.mem 
CLEAR 


UPR SA7 F1.2.1.0.0.0*" 
@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 





G 3,34 SAY "ENTITY OUTPUT" 

© 6,15 SAY $2 USER 5) FILE" 

Ć 8,15 SAY "2 SYSTEM 7 RECORD" 

© 10,15 SAY "3) PROGRAM 8) ELEMENT" 

© 12,15 SAY "4) MODULE 9 RETURN TO PREVIOUS MENU" 
© 14,15 SAY "5) | DOCUMENT 10 RETURN TO MAIN MENU" 

© 15,1 SAY " K | 
ACCEPT! ENTER YOUR CHOICE (1-10) FROM ABOVE: 'TO choice 

DO CA 


CASE choice = "]" 

store 'USER' to choice 
save to mem_var 

do 121100 

CASE choice = "2" 

store 'SYSTEM' to choice 
save to mem var 

DO 121100 

CASE choice = "3" 

store 'PROGRAM' to choice 
save to mem var 

DO 121100 

CASE choice = "4" 

store 'MODULE' to choice 
save to mem var 

DO 121100 

CASE choice = "5" 
store 'DOCUMENT' to choice 
save to mem_var 

DO 121100 

SESE choice = "6" . 
store 'FILE! to choice 
save to mem_var 

DO 121100 

CASE choice = "7" 

store 'RECORD' to choice 
save to mem var 

DO 1211000 

CASE choice = "3" 

store 'ELEMENT' to choice 
save to mem_var 

DO 121100 

CASE choice = "9" 

RETURN 

CASE choice = "10" 
RETURN TO MASTER 
OTHERWISE 
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CLEAR | 
@ 1 23 SAY choice 

(451 31 SAY "IS NOT À VALID CHOICE! 

@ 2,18 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 10 ONLY" 
@ 3,18 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 

ENDCASE 

ENDDO 

RETURN 
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121100.PRG 

HELENE : 1.2.1.1.0.0 

MENR FILES: NONE 

OUAZUT FILES: NONE 

POS IAT CALL THE MODLUE: 1.2.1.0.0.0 
Reel tne s thal THE MODULE CALLS:1.2.1.0.0.0 
LOCAL VARIABLES USED: 


MODIFIED DELETED FROM OR OUTPUT. 


INPUT FILES: MEM VAR 

OUTPUT FILES: MEM VAR 

DESIGNED BY: ROBERT A. KIRSCH II 
NREPITEN BY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 


NA A AAA A A A AA A A A A OF OF ok Ob OF oF OF oF OF 


DOSEESFED ON THE SCREEN OR PRINTED. 


RESTORE FROM mem_var 
STORE 0 TO rec_num, stop 
STORE .t. TO TRUE 

do while TRUE 


SNINY SAY "1.2.1.1.0.0" 
RESTORE FROM mem var 


@ 2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
PB SAY "ENTITY OUTPUT" 

@ 8,23 SAY "LISTED BELOW ARE THE CHOICES FOR HOW" 
[923 SAY "YOU CAN HAVE THE RELATION" 

(a 9,50 SAY CHOICE 

(a MD ASA. DISPLAYED.” 

112,28 SAY "1 SCRERNSOUTPUT" 

(a 14,28 AZ PRINTER OUPUT" 

eto, 26 SAY "3 RETURN TO PREVIOUS MENU" 

CL SAY Y " 

ACCEPT" ENTER YOUR CHOICE (1-3) FROM ABOVE 'TO 


ERASE mem_var.mem 
SAVE TO mem _var 


DO CASE 

CASS option = '1! 

DO CASE 

CASE CHOICE = 'USER ' 

DO 121110 

CASE choice = "SYSTEM! 
DO 121110 

CASE CHOICE — "PROGRAM! 
DO 121110 

CASE choice = 'MODULE' 
DO 121110 

CASE CHOICE = 'DOUCMENT' 
DO 121120 

CASE choice = "FILE" 

BO 121120 

CASE CHOICE — "RECORD! 
DO 121120 

CASE choice = 'ELEMENT' 
DO 121120 

ENDCASE 

CASE option = '2' 

DO CASE 

CASE CHOICE = "USER! 

DOM 21130 
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choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 


hold SNUSESD 06 SIOF ACTION FOR USER DECISION. 

1061011 =: CONTAINS THE USER'S CHOICE ON WHETHER TO OUTPUT TO THE SCREEN 
OR THE PRINTER. 

iE SREPREONENIS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 
LOOP. 

Crue : USED AS A BOOLEAN VALUE IN LOOPS. 


THIS MODULE ALLOW THE USER TO CHOOSE WHETHER THE OUTPUT WILL BE 


option 


CASE choice 
DO 121130 
CASE CHOICE 
DO 121130 
CASE choice 
DO 121130 
CASE CHOICE 
DO 121140 
CASE cholce 
DO 121140 
CASE CHOICE 
DO 121140 
CASE choice 
DO 121140 
ENDCASE . 
CASE option 
RETURN 
OTHERWISE 
CLEAR 


-SLO BEL: 

" PROGRAM" 
"MODULE" 

! DOUCMENT " 
"ETEEN 
"RECORD" 
"ELEMENT 


(3! 


@ 0,27 SAY option 
@ 0,34 SAY "IS NOT À VALID CHOICE! 
(A 1,26 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 


ACCEPT TO hola 


ENDCASE 
ENDDO 
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121110.PRG 

HELL NAME: 1.2.1.1.1.0 

INGUT-FILES: NONE 

OUTPUT FILES: NONE 

POU UJE S PAT CALL THE MODLUE: 1.2.1.1.0.0 
REENPHIESSPIHAT THE MODULE CALLS:1.2.1.1.0.0 
LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 
BEI REERESIEMITS NO VALUE AT ALL. 

Stop, hola: USED TO STOP ACTION FOR USER DECISION. 
count: KEEPS TRACK OF ACCOUNT NUMBERS. 

WNPUT FILE: NEM VAR. 

OUTPUT FILE: MEM VAR. 

DERUGNED BY: ROBERT A. KIRSCH II] 

MEMIESIU OSY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

Poe OUULE WILL DISPLAY ON THE SCREEN USER, SYSTEM, 
PROGRAM AND MODULE RELATIONS 


*RESTORE FROM mem_var 


CLEAR 

(1 Ol SAY “1.2.1.1.1.0" 

(a 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@ 3,30 SAY "ENTITY SCREEN OUTPUT"! 

@ 5,22 SAY "THIS MODULE WILL DISPLAY" 

@ 5,48 SAY choice 

a 7,22 SAY "IF YOU DO NOT WISH TO DISPLAY" 
NU 0192.2 SAY “THIS ENTITY, TYPE '0' TO" 

a 9,22 SAY "RETURN TO THE PREVIOUS MENU." 
WAIT TO stop 

DO CASE 

CASE stop = "0! 

RETURN 

OTHERWISE 

ENDCASE 

DO CASE 

CASE choice — "USER! 

CLEAR 

USE USER 


STORE 1 TO count 
SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 


(a 
(a 


(a 


Gees SAY CHOICE 
2 l| SAY “RECORD 


2,11 SAY count 


store count + 1 to count 


(a) (a) (a) (o) (o (o (o (o (o (o (a) (DW DA (DD DM) 


4,1 SAY "ACCESS NAME:" 

4,28 SAY ACC NAME 

5,1 SAY "IDENTIFICATION NAME:" 

5,28 SAY ID NAME 

6,1 SAY "DATE TUPLE ADDED:" 

6,28 SAY DATE ADDED 

7,1 SAY "TUPLE ADDED BY:" 

7,28 SAY ADDED BY 

8,1 SAY "DATE TUPLE LAST MODIFIED:" 
8,28 SAY LST MOD DT 

9,1 SAY "TUPLE LAST MODIFIED BY:" 
9,28 SAY LST MOD BY 

10,1 SAY "NUMBER OF MODIFICATIONS :" 
10,28 SAY NUM OF MOD 

11,1 SAY "DESCRIPTION:" 

11,28 SAY DESCRIPT 

15,1 SAY "COMMENTS :" 

15,28 SAY COMMENTS 


5EGEPT "PRESS RETURN TO SEE NEXT IUPLE'TO hold 
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CASE choice = 'SYSTEM' 

USE SYSTEM 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 

CLEAR 

Q 0,33 SAY CHOICE 

@ 2,1 SAY “RECORD 

11 

@ 2,11 SAY count 

store count + 1 to count 

4,1 SAY "ACCESS NAME:" 

4,28 SAY ACC NAME 

5,1 SAY "IDENTIFICATION NAME :!! 

5,28 SAY ID NAME 

6,1 SAY "DATE TUPLE ADDED:" 

6,28 SAY DATE ADDED 

7,1 SAY "TUPLE ADDED BY:" 

7,28 SAY ADDED BY 

8,1 SAY "DATE TUPLE LAST MODIFIED:" 
8,28 SAY LSTAMOD DI 

9,1 SAY "TUPLE LAST MODIFIED BY:" 
9,28 SAY LST MOD BY 

10,1 SAY "NUMBER OF MODIFICATIONS:" 
10726 SAY NUM OF MOD 

11,1 SAY "DBSCRIPTION:'! 

11,28 SAY DESCRIPT 

15,1 SAY "COMMENTS: " 

15,28 SAY COMMENTS 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE'TO hold 


ENDDO 

RETURN 

CASE choice = "PROGRAM! 

USE PROGRAM 

STORE I TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 

CLEAR 

(da 0,33 SAY CHOICE 

© 2,1 SAY "RECORD 

a 2,11 SAY count 

store count + 1 to count 

4,1 SAY "ACCESS NAME:" 

4,28 SAY ACC NAME 

5,1 SAY "IDENTIFICATION NAME:" 
9,28 SAY ID NAME 

6,1 SAY "DATE TUPLE ADDED:" 

6,28 SAY DATE_ADDED 

7,1 SAY "TUPLE ADDED BY:" 

7,28 SAY ADDED BY 

8,1 SAY "DATE TUPLE LAST MODIFIED:" 
8,28 SAY LST MODED 

9,1 SAY "TUPLE LAST MODIFIED BY:" 
9,20 SAY ESTSMODEET 

10,1 SAY "NUMBER OF MODIFICATIONS:" 
l0,28 SAY NUM OF MOD 

11,1 SAY "DESCRBETTON:" 

11,28 SAY DESCRIPT 

15,1 SAY "COMMENTS:" 

15,28 SAY COMMENTS 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE'TO hold 


fa) (a) (o) fa) (a) (A) (a) fa) (a) (A) fa) (a) fa) (ao (eo (en (a) re) 


(CD (e) (e) (a) (a) (a) fa) (a) (a) fa) fa) (a) fa) fa) fa) (O) fa) fa) 


RETURN . 
CASE choice = 'MODULE' 
USE MODULE 
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STORE 1 TO count 
SET HEADING OFE 

DO WHILE .NOT. EOF() 
CLEAR 

0211553 SAY CHOICE 

(a 4,1 SAY "RECORD 


© 4,11 SAY count 


67 SAY -ACCESS NAME: 

or ,28 SAY ACC NAME 

7,1 SAY "IDENTIFICATION NAME:" 

7,28 SAY ID NAME 

8,1 SAY "DATE TUPLE ADDED:" 

8,28 SAY DATE ADDED 

pesar "TUPLE ADDEDCBY.:" 

3,28 SBY ADDED BY 

10, EV UOSTIESIUELE LAST MODIFIED:" 
E28 SAY LSI*MOD DT 

1.1 SAV HTÚPEE LAST HODIFIED BY: 
EL EST MOD BY 

12, 1 SAY "NUMBER OF MODIFICATIONS:" 
T2 20€ SAY "NUM OE “MOD 

13,1 SAY "DESCRIPTION:' 

BI 28 SAY DESCRIPT 

17,1 SAY "COMMENTS :" 

i5 28 SAY COMMENTS 

s IPP S RETURN] TO SEE NEXT TUPEE TO hold 
ENDDO 

RETURN 

ENDCASE 


u 
ct 
O 
rę 
(D 
Q 
O 
= 
J 
ct 
+ 
= 
cr 
O 
Q 
o 
c 
Ó 
cr 


(a) (a) (A) (a) (A) (A) (a) (a) (A) (A) (a) (A) (A) (A) (A) (A) (A) (A) 
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121120.PRG 

MODULE NAME: 1.2.1.1.2.0 

INPUT FILES: NONE 

OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE: 1.2.1.1.0.0 
ROUTINES THAT THE MODULE CALLS:1.2.1.1.0.0 
LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 
t: REPRESTENTS NO VALUE AT ALL. 

stop, hold: USED TO STOP ACTION FOR USER DECISION. 
count: KEEPS TRACK OF ACCOUNT NUMBERS. 

INPUT FILE: MEM VAR. 

OUTPUT FILE: MEM VAR. 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE WILL DISPLAY ON THE SCREEN DOCUMENT, FILE, 
RECORD, AND ELEMENT RELATIONS. 


RESTORE FROM mem_var 
STORE OATO nec nem) stop 
CLEAR 


fa) fa) fa) fa) (a) (o) (ad (a) 


0,1 SAY "W 2052708 

1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
3,30 SAY “ENTITY SGREENTOUTEU 

5,22 SAY "THIS MODULE WILL DISPLAY" 

5,48 SAY choice 

1,22 SAY "IE YOU DO NOT WISH TO DISPLAY THIS" 
8,22 SAY "ENTITY, TYPE IOL TO FRETUFI] PO) 

9,22 SAY "PREVIOUS MENU." 


WAIT TO stop 

DO CASE 

CASE stop = "0! 
RETURN 

OTHERWISE 

ENDCASE 

DO CASE 

CASE choice = 'DOCUMENT' 
USE DOCUMENT 

STORE 1 TO count 
SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 


@ 
@ 


@ 


0,33 SAY CHOICE 
2,1 SAY RECORD 


2,11 SAY count 


store count + l to count 


fa) fa) fa) (a) fa) (a) (a) fa) (a) (a) fa) (a) fa) (a) a) fa) ra) (a) 


4,1 SAY "ACCESS NAME:" 

4,28 SAY ACC_NAME 

5,1 SAY "IDENTIFICATION NAME :" 

5,28 SAY ID NAME 

6,1 SAY "DATE TUPLE ADDED:" 

6,28 SAY DATE ADDED 

7,1 SAY "TUPLE ADDED BY:" 

7,28 SAY ADDED BY 

8,1 SAY "DATE TUPLE LAST MODIFIED:" 
8,28 SAY LST MOD DT 

9,1 SAY "TUPLE LAST MODIFIED BY:" 
9,28 SAY LST MOD BY 

10,1 SAY "NUMBER OF MODIFICATIONS:" 
10,28 SAY NUM OF MOD 

11,1 SAY "DESCRIPTION:" 

11,28 DESCRIPT 

15,1 SAY "COMMENTS:" 

15,28 COMMENTS 


s "PRESS RETURN FO SEE NET TUEĽE To lieci 
ENDDO 
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RETURN . 

CASE choice = "FILE" 
USE FILE 

STORE 1 TO count 
SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

a 0,33 SAY CHOICE 

a 2,1 SAY "RECORD 

il 


@2,11 SAY count 

store count + 1 to count 

4,1 SAY "ACCESS NAME:" 

4,28 SAY ACC NAME 

5,1 SAY "IDENTIFICATION NAME:'! 

5,20 SAY IB NAME 

6,1 SAY "DATE TUPLE ADDED:" 

6,28 SAY DATE ADDED 

1 SAV “TUPLE ADDED BY:"! 

„28 SAY ADDED.-.BY 

BEI SAY UDATE TUPLE LAST MODIFIED:" 
OF ZST SAY LST MOD- DT 

9,1 SAY "TUPLE LAST MODIFIED BY:" 

37 23 SAY LST HOD BY 

10,1 SAY "NUMBER OF MODIFICATIONS:" 
10,28 SAY NUM OF MOD 

11,1 SAY "DESCRIPTION :" 

11,28 DESCRIPT 

15,1 SAY "COMMENTS :" 

15,28 COMMENTS 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE'TO hold 
SKIP 


ENDDO 

RETURN 

CASE choice = 'RECORD' 

USE RECORD 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 

CLEAR 

a 0,33 SAY CHOICE 

e 2,1 SAY "RECORD 

© 2,11 SAY count 

store count + l1 to count 

4,1 SAY "ACCESS NAME:" 

4,28 SAY ACC_NAME 

bail SAY "IDENTIFICATION NAME:" 

5,20 SAY IDeNAME 

6,1 SAY "DATE TUPLE ADDED:" 

9,28 SAY DATE ADDED 

ul SAY “TUPLE ADDED BY:" 

7,28 SAY ADDED. BY 

8,1 SAR “DATE 4UPLE LAST MODIFIED:" 

3728 say Lol MOD DT 

9,1 SAY "TUPLE LAST MODIFIED BY:" 

PZO SAY ES MOD BY 

10,1 SAY "NUMBER OF MODIFICATIONS:" 

10,28 5A7 NUM OF:MOD 

MST SAY DESCRIPTION: "” 

11,28 DESCRIPT 

15,1 SAY "COMMENTS :" 

15,28 COMMENTS 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE'TO hold 
P 


ENDDO 
RETURN . 
CASE choice = 'ELEMENT' 


fa) fa) (a) ro (o (a) (o) (o) (o) (a) (o) o (o (e ro (o Oa 


mo (BD (DDD (DD (DD DD M) DM) 


1/0 


USE ELEMENT 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 

CLEAR 

(10,353 SAY CHOICE 

& 2,1 SAY "RECORD 

I 

© 2,11 SAY count 

store count + 1 to count 

4,1 SAY "ACCESS NAME:" 

4,28 SAY ACC_NAME 

5,1 SAY "IDENTIFICATION NAME:'! 

5,28 SAY ID NAME 

6,1 SAY "DATE TUPLE ADDED:" 

6,28 SAY DATE ADDED 

7,1 SAY "TUPLE ADDED BY:" 

7,28 SAY ADDED BY 

8,1 SAY "DATE TUPLE LAST MODIFIED:" 
8,28 SAY LST MOD DI 

9,1 SAY "TUPLE LAST MODIFIED BY:" 
9,28 SAY LST MODET 

10,1 SAY "NUMBER OF MODIFICATIONS:" 
10,28 SAY NUM_OF_MOD 

11,1 SAY "DESCRIPTION: " 

11,28 DESCRIPT 

15,1 SAY "COMMENTS: 

15,28 COMMENTS 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE'TO hold 


(a) fa) (a) (VD o) fa) (DD (DD (DDD DO) DDD 


ENDCASE 
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121130.PRG 

DEBULE NAME: 1.2.1.1.3.0 

INPUT PILES: NONE 

QUTEUT FILES: NONE 

ROUTINES TRAT CALL THE MODLUE: 1.2.1.1.0.0 
ROLANNIES TRAT THE MODULE CALLS:1.2.1.1.0.0 


ESPREPRESTENTS NO VALUE AT ALL. 

Stop hola: USED TO STOP ACTION FOR USER DECISION. 

count: REEPS TRACK OF ACCOUNT NUMBERS. 

INPUT FILE: MEM VAR. 

SEDPUTIT FILE: MEM VAR. 

DESEGNED BY: ROBERT A. KIRSCH II 

nt ILIENN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

1115 MODULE WILL OUIPUT THE USER, SYSTEM, PROGRAM AND MODULE 
ESPAPPONCETLES TO THE PRINTER. 


RESTORE FROM mem var 

STORE 0O TO rec num, stop 

CLEAR 

SAY 1.2.1.1.3.0" 

1.2 57 TTHEORHMATIOM RESOURCE DICTIONARY SYSTEM" 

59.23 S "ENTITY PRINTER OUTPUT" 

25 oft "THIS MODULE WILL PRINT" 

6,47 SAY choice 

SAY “PLEASE INSURE THAT YOUR PRINTER" 
9,23 SAY "IS TURNED ON AND IN THE ONLINE" 
10023 SAY "MODE" 
Zo oe "BESYOU- DO NOT WISH TO PRINT" 
1.925 SA, UPHISCENIITY, TYPE 'O' TO" 
1523 SAY "RETURN TO THE PREVIOUS MENU“ 

WAIT TO stop 

DO CASE 

CASE stop — "0! 

RETURN 

OTHERWISE 

ENDCASE 

SET DEVICE TO PRINT 

pea CONSOLE OFF 

pO CASE 

CASE choice = 'USER' 

USE USER 

SEOEE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 

CLEAR 

@ 0,33 SAY CHOICE 

@ 2,1 SAY "RECORD 


@ 2,11 SAY count 


j "ACCESS NAME:" 

4,28 SAY ACC NAME 

5,1 SAY "IDENTIFICATION NAME:" 

5,28 SAY ID NAME 

6,1 SAY "DATE TUPLE ADDED:" 

6,28 SAY DATE ADDED 

7,1 SAY "TUPLE ADDED BY:" 

7,28 SAY ADDED_BY 

8,1 SAY "DATE TUPLE LAST MODIFIED:" 
8,28 SAY LST MOD DT 

9,1 SAY "TUPLE LAST MODIFIED BY:" 
9,28 SAY LST MOD BY 

10,1 SAY "NUMBER OF MODIFICATIONS:" 
10,28 SAY NUM OF MOD 

11,1 SAY "DESCRIPTION:" 

11,28 SAY DESCRIPT 


(ob ob ob (b ob ob ob b ob ob Ob Ob AAA AH 


(o) fa) 


(a) fa) fo) fa) (a) (o) fa) (ad fa) 
OO 
N 
U) 


a 
cr 
> O 
M 
t (D 
ma 
> O 
KE 
S 
(+ 
ef 
in 
cr 
O 
Q 
O 
© 
J 
cr 


(Qo (eo (e) (eo (ao (eo (eo (a) (e) (a9 (a) (eo (eo (eo fo) fa) 
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LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 


(015 175378 COMMENTS=R 
a 15,28 SAY COMMENTS 
(AS UI SAY My 
SKIP 
ENDDO 
CASE choice = 'SYSTEM' 
USE SYSTEM 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 
CLEAR 
(a 0,33 SAY CHOICE 
(a 2,1 SAY "RECORD 
it 
@ 2,11 SAY count 
store count + 1 to count 
4,1 SAY "ACCESSANANE:* 
4,28 SAY ACC NAME 
5,1 SAY "IDENTIFICATION NAME:" 
5,20 SAY ID NAME 
6,1 SAY "DATE TUPLE ADDED:" 
6,28 SAY DATE_ADDED 
7,1 SAY "TUPER ADDED BY. 
7,28 SAY ADDED BY 
8,1 SAY “DATE TUPLE LAST MODIFIED" 
8,28 SAYSESPSMODESDE 
9,1 SAY "TUPLE LAST MODIFIED BY:" 
9,28 SAY LST MOD BY 
10,1 SAY "NUMBER OF MODIFICATIONS:" 
10,28 SAY NUM OF MOD 
JI T SAY Ü'DEBSCRLPETION:!': 
11,28 SAY DESCRIPT 
15 SAY “COMMENTS.” 
15,28 SAY COMMENTS 
18, SAY U 
SKIP 
ENDDO 
CASE choice = 'PROGRAM' 
USE PROGRAM 
STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 
CLEAR 
a 0,33 SAY CHOICE 
@ 2,1 SAY "RECORD 
e 2,11 SAY count 
store count + 1 to count 
4,1 SAY "ACCESS NAME:" 
4,28 SAY ACC NAME 
5,1 SAY "IDENTIFICATION NAME:" 
5,28 SAY ID NAME 
6,1 SAY "DATE TUPLE ADDED:” 
6,28 SAY DATE_ADDED 
7,1 SAY "TUPLE ADDED BY :" 
7,28 SAY ADDED2BYV 
8,1 SAY "DATE TUPEB ĽAJI MODISTED): 
8,26 SAY LST MODIDI 
9,1 SAY "TUPLE LAST MODIFIED BY:" 
9,28 SAY EST"MOBZEŚ 
10,1 SAY "NUMBER OF MODIFICATIONS:" 
10,28 SAY NUM OF MOD 
ll,l SAY "DESCRIPTION." 
11,28 SAY DESCRIPT 
15,1 SAY "COMMENTS: !! 
15, 28 SAY COMMENTS 
18,1 SAY. "min 
KIP 


r rm ro ro o m (o (e (o (eo (en (en (on (9 (a (9 (en (e (e) 


Qn (e) fa) fa) (a) fa) (m) (m) fn) (m) (m) (m (o (o (mío (eo (e) (eo fe) 


Je 


ENDDO 

CASE choice = 'MODULE' 

USE MODULE 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 

CLEAR 

a 0,33 SAY CHOICE 

G 2 l SAY "RECORD 

I 

© 2,11 SAY count 

store count + 1 to count 

4,1l SAY "ACCESS NAME:" 

4,28 SAY ACC_NAME 

5 1 SAY "IDENTIFICATION NAME :" 
5,28 SAY ID.NAME 

6,1 SAY "DATE TUPLE ADDED :“ 

6 ,28 SAY DATE ADDED 

mam Sey “TUPLE ADDED BY :" 

TS SAY ADDED BY 

8,1 SAY "DATE TUPLE LAST MODIFIED:" 
c 26 SAY LST MOD DT 

S I SAY "TUPLE LAST MODIFIED BY:" 
DEO SAY LSI MOD BY 

10,1 SAY "NUMBER OF MODIFICATIONS :" 
10,28 SAY NUM_OF_MOD 

11,1 SAY {DESCRIPTION " 

Tl 28 SAY DESCRIPT 

15.1 SAY "COMMENTS! 

15,28 SAY COMMENTS 

NS] SAY "" 


(a) (o) (a) (eo (e) (e) (e) (e0 (00 (C9 (Q0 (Q0 (90 (99 (90 (9 (e) (C9 (e) 


DEVICE TO SCREEN 
SET CONSOLE ON 
RETURN 
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121140.PRG 

MODULE NAME: 1.2.1.1.4.0 

INEUITFILES: NONE 

OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODEUE: 1229 1 6 6 
ROUTINES THAT THE MODULE (CALES 120- 
LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 
t: REPRESTENTS NO VALUE AT ALD: 

stop, hold: USED TO STOP ACTION EORRUSERSPECTSTON: 
count: KEEPS TRACK OF ACCOUNT NUMBERS. 

INPUT FILE: MEM VAR. 

OUIPUI FILE: MEMSVAR. 

DESIGNED BY: ROBERT A. KIRSCHT E 

WRITTEN BY: ROBERT À. RIRSCE II 

BASIC FUNCTION OF MODULE: 

THIS MODULE WILL OUTPUT THE FIRST FOUR FEESDNGNISEIIE 
RELATION FILES TO THE PRINTER. 


RESTORE FROM mem var 
STORE 0 TO rec num, stop 


CLEAR 

@ 0,1 SAY HZ. NASA ZG 

(a 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
© 3,29 SAY "ENTITY PRINTER SUMELID“ 

© 6,23 SAY "THIS (MODULE WEEE 

@ 6,47 SAY choice 

@ 8,23 SAY "PLEASE INSURE THAT YOUR PRINTER"! 
@9,23 SAY "IS TURNED ON AND IN THE ONLINE" 
@ 10,23 SAY (MODE 

@12,23 SAY "IF YOU DO NOT WISH TO PRINT" 

@ 13,23 SAY "THIS RELATION, TYPE "0! 10! 

@ 14,23 SAY "RETURN TO THE PREVIOUS MENU" 
WAIT TO stop 

DO CASE 

CASE stop = 'O' 

RETURN 

OTHERWISE 

ENDCASE 


SET DEVICE TO PRINT 

SET CONSOLE OFF 

DO CASE ` 

CASE choice = 'DOCUMENT' 
USE DOCUMENT 

STORE 1 10 cCeotnt 

SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 


a 
(a 


© 


0,33 SAY CHOICE 
2,1 SAY "RECORD 


2,11 SAY count 


store count + 1 to count 


(o) (o) (o (o (o (o fo) (o) (p) fo) (o) (p) (o) (DD (DD) 


4,1 SAY "ACCESS NAME:" 

4,28 SAY ACC NAME 

5,1 SAY "IDENTIFICATION NAME:" 

5,28 SAY ID NAME 

6,1 SAY "DATE TUPLE ADDED:" 

6,28 SAY DATE ADDED 

7,1 SAY "TUPLE ADDED BY:" 

7,28 SAY ADDED BY 

8,1 SAY "DATE TUPLE LAST MODIFIED:" 
8,28 SAY LST MOD DT 

9,1 SAY "TUPLE LAST MODIFIED BY:" 
9,28 SAY LST MOD BY 

10,1 SAY "NUMBER OF MODIFICATIONS:" 
10,28 SAY NUM_OF MOD 

11,1 SAY "DESCRIPTION: " 

11,28 DESCRIPT 


tus 


@ 1 SA% COMMENTS :" 
(a 13. 28 COMMENTS 
(a S SAY h 


eds 

CASE choice = 'FILE' 
USE FILE 

STORE 1 TO count 
SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

@ 0733 SAY CHOICE 

© Z SAY "RECORD 


@ 2,11 SAY count 

store count + 1 to count 

4,1 SAY "ACCESS NAME:" 

4,28 SAY ACC NAME 

5,1 SAY "IDENTIFICATION NAME: 

Br ,28 SAY ID NAME 

6.1 SAY "DATE TUPLE ADDED:" 

6,28 SAY DATE_ADDED 

PRSA "TUPLE ADDED BY: 

7,28 SAY ADDED BY 

Be SAY "DATE TUPLE LAST MODIFIED:" 
Beco SAY LST MOD DT 

SNE SAY UTUPLE LAST MODIFIED BY:" 
PZO SAY LST MOD BY 

10,1 SAY "NUMBER OF MODIFICATIONS:" 
ED. "28 SAY NUM OF MOD 

11,1 SAY "DESCRIPTION:! 

11,28 DESCRIPT 

15,1 SAY "COMMENTS :" 

15,28 COMMENTS 

BEI SAY " 


fa) fa) fa) fa) fa) fa) fa) (a) (a) fa) a) fa) a) a) fa) |) fo) fa) fa) 


CASE choice = 'RECORD' 
USE RECORD 

SPORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

GRO, 33 SAY CHOICE 

© 2,1 SAY "RECORD 


a 2,11 SAY count 

Store count + 1 to count 

4,1 SAY "ACCESS NAME:" 

4,28 SAY ACC NAME 

° 1 SAY "IDENTIFICATION NAME:" 
5,28 SAY ID NAME 

6,1 SAY "DATE TUPLE ADDED:" 

6. ,28 SAY DATE ADDED 

7, „l SAY "TUPLE ADDED BY:" 

7 28 SAY ADDED BY 

8.1 SAY "DATE TUPLE LAST MODIFIED:" 
8 a SB lol NOD DT 

ISA TUPLE LAST MODIFIED BY:" 
28 53% LSL MOD BY 

10,1 SAY "NUMBER OF MODIFICATIONS:" 
10,28 SAY NUM OF MOD 

11,1 SAY "DESCRIPTION:" 

ni że DESCRIPT 

STE SATDUCOMMENTS:" 

15,28 COMMENTS 

SET SAY " M 
KIP 


Un (aya (ao (a DD DD DD DD DD DD DD M) 
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ENDDO 

CASE choice = "ELEMENT"! 

USE ELEMENT 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 

CLEAR 

@ 0. 33 SAY CHOICE 

@ 2,1 SAY "RECORD 

"I 

@ 2,11 SAY count 

store count + 1 to count 

4,1 SAY "ACCESS NAME:" 

4,28 SAY ACC_NAME 

5,1 SAY "IDENTIFICATION NAME:" 
5,28 SAY ID NAME 

6,1 SAY "DATE TUPLE ADDED:" 
6,28 SAY DATE ADDED 

1,1 SAY “TUPLE ADDED BY:" 

7,28 SAY ADDEDPBY 

8,1 SAY "DATE TUPLE LAST MODIFIED:" 
8,28 SAY EST .MOBSBN 

9,1 SAY "TUPLE LAST MODIFIED BY:" 
9,28 SAY LST MODIBY 

10,1 SAY "NUMBER OF MODIFICATIONS:" 
10,28 SAY NUM OF MOD 

11,1 SAY "DESCRIPTION:" 

11,28 DESCRIPT 

15,1 SAY "COMMENTS :!! 

15,28 COMMENTS 

18 L SAY tug 

SKIP 

ENDDO 

ENDCASE 

SEITDEVICE TO SCREEN 

SET CONSOLE ON 

RETURN 


fa) (a) (a) (en (e) (e) (gy (e) (en (go (en (p) (a) (m) (o) (M) (M) (a) 
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122100.PRG 

MODULE NAME: 1.2.2.1.0.0 

INPUT FILES: NONE 

OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE: 1.2.2.0.0.0 

ROUTINES THAT THE MODULE CALLS:1.2.2.0.0.0 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 

hold : USED TO STOP ACTION FOR USER DECISION. 

option : CONTAINS THE USER'S CHOICE ON WHETHER TO OUTPUT TO THE SCREEN 
OR THE PRINTER. 

t : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 
OOP. 

INPUT FILES: MEM_VAR. 

OUTPUT FILES: MEM VAR. 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHETHER THE OUTPUT WILL BE 

DISPLAYED ON THE SCREEN OR PRINTED. 


RESTORE FROM mem_var 
STORE O TO rec num, stop 
"MORE .t. TO TRUE 

do while TRUE 


SRRDSAY FW Z.2.1.0.0' 
RESTORE FROM mem_var 


ób ob ob ob ob ob AA A A A A A AIA A ob A A NH A A 


© 2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@ 4,29 SAY "RELATIONSHIP OUTPUT" 

[151123 SaY “LISTED BELOW ARE THE CHOICES FOR" 

@9,23 SAY "HOW YOU CAN HAVE THE RELATIONSHIP" 

(A 11,24 SAY TITLE 

M123 SAY "DISPLAYED." 

[5 28 SAY "l SCREEN OUTPUT" 

@ 17,28 SAY "2 PRINTER OUEUT” 

HE 238 SAY "3 RETURN TO PREVIOUS MENU" 

© 20,1 SAY " " | 
ACCEPT! ENTER YOUR CHOICE (1-3) FROM ABOVE 'TO option 


ERASE mem_var.mem 
SAVE TO mem_var 
CASE option 
DO CASE 

'U BROC S' 
Bo 1224110 
G 5 Chorce = 'S PROC P' 
GRZE CHOICE = 'P PROC F" 
DO 122110 
BO 122110 
PASE CHOICE = 'P PROC E" 
CASE choice = 'S CONT_P' 
BO 122120 
De 122120 
CASE choice = 'F_CONT_R' 
CASEMCHOTCE = 'R CONT E' 
DO-122130 
DO 122130 
GASECCHOICE = 'U RESP F" 


DO CASE b 

CASE CHOICE 

po. 122110 

CASE choice = 'P PROC R! 
DO 122120 

CASE CHOICE = 'P CONT_M' 
DO 122120 

CASE choice = 'U RESP S! 
Po 122130 
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CASE choice 
BO 1221530 
ENDCASE . 
CASE option 
DO CASE 
CASE CHOICE 
DO 122140 
CASE choice 
DO 122140 
CASE CHOICE 
DO 122140 
CASE choice 
DO 122140 
CASE CHOICE 
DO 122150 
CASE choice 
DO 122150 
CASE CHOICE 
DO 122150 
CASE choice 
DO 122150 
CASE CHOICE 
DO 122160 
CASE choice 
DO 122160 
CASE CHOICE 
DO 122160 
CASE choice 
DO 122160 
ENDCASE 
CASE option 
RETURN 
OTHERWISE 
CLEAR 


'P PROD D' 


12! 
'U PROC S' 
'S PROC P' 
'P PROC F' 
'P PROC R' 
'P PROC E' 
'S CONT P' 
'P CONT M' 
'F CONT R' 
'R CONT E' 
'U RESP S! 
IU RESP F! 
'P PROD D! 


13! 


© 0,27 SAY option 

a 0,34 SAY "IS NOT A VALID CHOICE" 

Qa 1,26 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 
a 2,26 SAY "PRESS RETURN AND TRY AGAIN!" 

ACCEPT TO hold i 

ENDCASE 

ENDDO 
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122110 ..PRG 

MODULE NAME: 1.2.2.1.1.0 

INPUT FILES: NONE 

OUTPUT FILES: NONE 

EU S THAT CALL THE MODLUE: 1.2.2.1.0.0 

ESUIBUIES THAT THE MODULE CALLS:1.2.2.1.0.0 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTERTSIRING THAT IDENTIFIES THE RELATION BEING ADDED IO, 
HODPTRIRD. DEEETED EFROIT OR OUTPUT. 


count USED TO KEEP TRACK OF THE RECORD NUMBER BEING DISPLAYED. 
hold SU ED loool ACTION FOR USER DECISION. 
Sotezon  § (CONTAINS TRE USER'S CHOICE ON WHETHER TO OUTPUT TO THE SCREEN 
OR THE PRINTER. 
t : aon me? THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 
OOP. 


INPUT FILES: MEM VAR U CONTS, S CONT P, P PROC F, P PROC R. 

OUTPUT FILES: MEM VAR. 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE WILL DISPLAY ON THE FIRST FOUR RELATIONSHIP TO THE SCREEN. 


RESTORE FROM mem var 

CLEAR 

DEN SAYS 1.2.2.1.1.0" 

(à 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
CR ZO SAY RELATIONSHIP SCREEN OUTPUT" 

is SAY “THIS MODULE WILL DISPLAY" 

(123 SAC TITLE | 
(a 
(a 


+ X X X 2 X X X X X 2 2 X X 2 AN ANA AN AH AH 


022 551 017 YOU BDONNST WISH IO DISPLAY" 
Z VPE THIS RELATIONSHIP TYPE "0" TO" 
S RETURN TO THE PREVIOUS MENU." 


CASE stop = '0' 

RETURN 

OTHERWISE 

ENDCASE 

DO CASE 

CASE choice = 'U_PROC_S' 
CLEAR : 

WSE U PROC S 

MORE I TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

ERZ 33 SAY TITLE 

e 4,1 SAY "RECORD 

© 4,11 SAY count 

Store count + 1 to count 
CREE SAYSUĄACCESS NAME:" 
© 6,28 SAY U NAME 

(a 7,1 SAY "IDENTIFICATION NAME:" 
© 7,28 SAY S NAME 

a 9,1 SAY " H 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE'TO hold 
SKIP 

ENDDO 

RETURN 

CASE choice = "S PROC P' 
USESS PROC P 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

id 2,33 SAV TITLE 
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a 4,1 SAY "RECORD 
II 


a 4,11 SAY count 

store count + 1 to count 

(A 6,1 SAY "ACCESS NAME:'" 

@6,28 SAY S NAME 

@ 7,1 SAY "IDENTIFICATION NAME:" 
a 7,28 SAY P NAME 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE'TO hold 
SKIP 

ENDDO 

RETURN 

CASE choice = 'P PROC F' 

USE P 'PROC F 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 

CLEAR 

@ 2,33 SAY TITLE 

e 4,1 SAY "RECORD 

I 

a 4,11 SAY count 

store count + 1 to count 

@6,1 SAY "ACCESS NAME:" 

( 6,28 SAY P NAME 

( 7,1 SAY "IDENTIFICATION NAME:" 
7,28 SAY F NAME 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE'TO hold 


RETURN . 

CASE choice = 'P PROC R' 
USE P PROC R 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

@ 2,33 SAY TITLE 

© 4,1 SAY "RECORD 


© 4,11 SAY count 

store count + 1 to count 

6,1 SAY "ACCESS NAME:" 

6, „28 SAY P NAME 

24 „l SAY "IDENTIFICATION NAME:" 

7 .28 SAY R NAME 

8,1 SAY "COMMENTS :" 

DISPLAY OFF COMMENTS 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE'TO hold 


(e) (co (c9 (c9 (e) 


SKTE 

ENDDO 

RETURN 

ENDCASE 

* MODULE NAME: 1.2.2.0.0.0 

* INPUT FILES: NONE 

* OUTPUT FILES: NONE 

% ROUTINES THAT GALL THE MODLUE 1] 0 0 SG 

* ROUTINES THAT THE MODULE CALLS:TBD, MAIN 

* LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 
= t: REPRESTENTS NO VALUE AT ALL. 

R hold: USED TO STOP ACTION FOR USER DECISION. 
* INPUT FILE: MEM VAR. 

* OUTPUT FILE: MEM VAR. 

* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

á THIS MODULE ALLOW THE USER TO CHOOSE WHICH SL HE WOULD 


LIRE TO DELETE TUPLES FROM. 
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& 

do while .t. 

ERASE mem_var.mem 

CLEAR 

sar l] .2.2.0.0.0' 

(a 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 


@ 3,29 SAY "RELATIONSHIP OUTPUT" 

© 5,9 SAY "1) USER CONTAINS SYSTEM 8) FILE CONTAINS REC" 
© 5,64 SAY "ORDS" 

© 7,9 SAY "2) SYSTEM CONTAINS PROGRAM 9) RECORD CONTAINS E" 
© 7,64 SAY "LEMENT" 

© 9,9 SAY "3) | PROGRAM PROCESSES FILE 10) USER RESPONSIBLE" 

© 9,64 SAY "FOR SYSTEM! 

© 11,9 SAY "4) | PROGRAM PROCESSES RECORD 11) USER RESPONSIBLE" 
@ 11,64 SAY "FOR FILE! 

© 13,9 SAY "5) | PROGRAM PROCESSES ELEMENT 12) PROGRAM PRODUCES" 
@ 13,64 SAY "DOCUMENT" 

© 15,9 SAY "6) SYSTEM CONTAINS PROGRAM 13) RETURN TO PREVIOU" 
@ 15,64 SAY "S MENU" 

© 17,9 SAY "7) | PROGRAM CONTAINS MODULE 14) RETURN TO MAIN ME" 
@ 17,64 SAY "NU" 

© 18,22 SAY " " | 

ACCEPT ' ENTER YOUR CHOICE (1-14) FROM ABOVE:'TO choice 

DO CASE 


CASE choice = "1" | 

stone 'U PROC S' to choice f 
Store "USER PROCESSES SYSTEM' TO title 
save to mem_var 

do 122100 

FASE cholge — "2" 

suche) sp ROC OF! to choice 
store "SYSTEM PROCESSES PROGRAM! TO title 
save to mem var 

do 122100 

CASE choice = "3! 

store 'P_PROC_F' to choice f 
store 'PROGRAM PROCESSES FILE' TO title 
save to mem_var 

do 122100 

CASE choice = "4" 

store 'P PROC R' to choice f 
store 'PROGRAM PROCESSES RECORD' TO title 
save to mem var 

do 122100 

CASE choice = "5" 

store 'P PROC E' to choice 

store 'PROGRAM PROCESSES ELEMENT' TO title 
save to mem var 

do 122100 

CASE choice = "6" 

store "S CONT P' to choice | 
store 'SYSTEM CONTAINS PROGRAM' TO title 
save to mem_var 

se 122100 

CASE choice = "7! 

store 'P CONT M' to choice | 
store 'PROGRAM CONTAINS MODULE' TO title 
save to mem var 

de 122100 

CASE choice = "8" 

store 5 GONT R" to choice 

store 'FILE CONTAINS RECORD" TO title 
save to mem var 

do 122100 

© SE choice = “9! 

store 'RFCONT_E" to choice 

store 'RECORD CONTAINS ELEMENT' TO title 
save to mem_var 
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do 1221400 

CASE choice 10010. f 

store "U RESPRS tO CHOICE f 
store 'USER RESPONSIBLE FOR SYSTEM" TO title 
save to mem var 

do 122100 

CASE choice = "11" ! 

store 'U RESP F' to choice | 
store 'USER RESPONSIBLE FOR FILE' TO title 
save to mem_var 

do 122100 

CASE choice sp 12] , 

store 'P_PROD_D' to choice 

store 'PROGRAM PRODUCES DOCUMENT' TO title 
save to mém var 

do 122100 

CASE choice = "13" 

RETURN 

CASE choice = "14" 

RETURN TO HASTEE 

OTHERWISE 

CLEAR | 

@ 1,21 SAY choice 

@ 1,28 SAY "IS NOT A VALID CAUCE 

@ 2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 14 ONLY" 
@ 3,20 SAY "PRESS RETURN TO TRY AGAIN!" 
ACCEPT TO hold 

ENDCASE 

ENDDO 

RETURN 
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122120 .PRG 

NODSEF NAME: 1.2.2.1.2.0 

FED FIPES: NONE 

Ole FILES: “NONE 

ESUDINGS THAT CALL THE MODLUE: 1.2.2.1.0.0 

EOUDINBO MSI THE MODULE CALLS:1.2.2.1.0.0 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STELNGFTNAT IDENITETES THE RELATION BEING ADDED TO, 
MODIFIED DELETED FROMWOR OUTPUT. 

count : USED TOSKERP IRAGK OF TH RECORD NUMBER BEING DISPLAYED. 

hold SUUSEDEDUDESPOPCACDITONSEOSR USER DECISION. 

SPR rom" SCONTATNSOTHESUSER' S CHOICE ON WHETHER TO OUTPUT TO THE SCREEN 
OR THE PRINTER. 

E | ROePRESTENTS, THE BOOLEANSTRUE IS USED TO CREATE A CONTINUES 


LOOP. 
Pigeon: MEM VAR P PROC_E, S CONT P, P CONT M, F CONT R. 
OUTPUT FMES: MEM VAR. 
NESMONEDIBY: ROBERT A. KIRSCH II 
CAEN TEY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 
THIS MODULE WILL DISPLAY THE NEXT FOUR RELATIONSHIP TO THE SCREEN. 


BESTORE PROM mem var 

CLEAR 

SNE SAS "1 .2.2.1.2.0" 

PP) 2722 gay "INFORM TION RESOURCE DICTIONARY SYSTEM" 
ENS 20 Sey "RELATIONSHIP SCREEN OUSPUT" 

015,22 SAY "THIS MODULE WILL DISPLAY" 

B 2,23 SAY TITLE 
(a 
(a 


XXX AA AAA AX AA AH 


Ao * * A E * * 


RDS TETOU DONE AMI SH TO DISPLAY" 
10 022 oe IRIS RELCATIONSHIP, TYPE- '0' TO" 
CEN Sav RETURN TO THE PREVIOUS MENU." 


0135 SLop — "0 

RETURN 

OTHERWISE 

ENDCASE 

DO CASE . 

855-1 Cholce = 'P PROC E' 
CLEAR 

UE P_ PROC E 

STORE 1 TO”count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

121533 SAY TITLE 

c 4,1 SAY "RECORD 

@ 4,11 SAY count 

Segre Count + 1 to count 
© 6,1 SAY "ACCESS NAME :" 
G 6,28 SAY P NAME 

© 7,1 SAY "IDENTIFICATION NAME :" 
© 7,28 SAY E NAME 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE'TO hold 


RETURN 

CASE cholce - 'S CONT P' 
USE“ CONT P 

SABRE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

© 33 SAY TITLE 

© 4,1 SAY "RECORD 
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a 4,11 SAY count 

Store count t 1 EGREGURE 

A 6,1 SAY "ACCESS NAME:" 

( 6,28 SAY S NAME 

(a 7,1 SAY "IDENTIFICATION NAME:" 
a 7,28 SAY P NAME 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE'TO hold 
SKIP 

ENDDO 

RETURN 

CASE choice = 'P CONT M 

USE P CONT M 

SIORE 1 TO Cõunt 

SET HEADING OFF 

DO WHILE .NOT. EOF() 

CLEAR 

@ 2,33 SAY TIILE 

@ 4,1 SAY "RECORD 

@ 4,11 SAY count 

store count + 1 to count 

A 6,1 SAY "ACCESS NAME:" 

(a 6,28 SAY P NAME 

(a 7,1 SAY "IDENTIFICATION NAME:" 
QA 7,28 SAY M NAME 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE'TO hold 


RETURN 

CASE choice = 'F CONT R' 
USE F CONT R 

STORE 1 TO Count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

a 2,33 SAY TITLE 

© 4,1 SAY "RECORD 


© 4,11 SAY count 

store count + 1 to count 

6,1 SAY "ACCESS NAME:" 

6,28 SAY F NAME 

7,1 SAY "IDENTIFICATION NAME:" 

7,28 SAY R NAME 

8,1 SAY "COMMENTS :" 

DISPLAY OFF COMMENTS 

STAG "PRESS RETURN TO SEE NEXT TUPLE'TO hold 
I 

ENDDO 

RETURN 

ENDCASE 


(a) (D DDM 
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1522130 PRG 

MODULE NAME: 1.2.2.1.3.0 

INPUT FILES: NONE 

OBIFUT FILES: NONE 

POWTINES THAT CALL THE MODLUE: 1.2.2.1.0.0 

ROUTINES THAT THE MODULE CALLS :1.2.2.1.0.0 

LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 
t: REPRESTENTS NO VALUE AT ALL. 
noid "USED TO STOP ACTION FOR USER DECISION. 
count: KEEPS TRACK OF ACCOUNT NUMBERS. 
option: 

EESIGMEO By: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

TRIS MODULE WILL DISPLAY ON THE FIRST THREE RELATIONSHIP 

RELATIONS 


SET EXACT ON 
sepacolor to 0/3,3 
set talk off 

set menu on 

SET EXACT ON 

RESTORE FROM mem var 
CLEAR 


X 2% 26 26 2 AH A A AAA AAA AH 


OAZĘ SAY U1.2.2.1.3.0" 

@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
S SAY RELATIONSHIP SCREEN OUTPUT" 

[E 22 SAY "THIS MODULE WILL DISPLAY" 

SM 23 SAY TITLE 

12.22 SAY "IA YOU DO NOT WISH TO DISPLAY" 
EB Z275RY (INES RELATIONSHIP, TYPE 'O' TO" 
11 22 SAY RETURN TO TRE PREVIOUS MENU." 
WAIT TO stop 

DO CASE 

CASE stop = "0! 

RETURN 

OTHERWISE 

ENDCASE 

DO CASE 

CASE choice = 'R CONT E' 

CLEAR 


Women CONT E 

STORE I TO count 
SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

esz 33 SAY TITLE 

© 4,1 SAY "RECORD 


a 4,11 SAY count 

store count + 1 to count 

151 SAY “ACCESS NAME:" 

@ 6,28 SAY R_NAME 

@ 7,1 SAY "IDENTIFICATION NAME:" 
G 7,28 SAY E NAME 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE'TO hold 
SKIP 

ENDDO 

RETURN 

CASE choice = 'U RESP S' 

DES U RESP S 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 

CLEAR 

@ 2 353 SAY TITLE 

@ 4,1 SAY "RECORD 
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a 4,11 SAY count 

store count + 1 to count 

A 6,1 SAY "ACCESS NAME:" 

@ 6,28 SAY U_NAME 

( 7,1 SAY “IDENTIFICATION NAME:" 

( 7,28 SAY S NAME 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE'TO hold 


RETURN 

CASE choice = "U RESP F' 

USE U RESP E 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 

CLEAR 

@ 2,33 SAY TITLE 

@ 4,1 SAY "RECORD 

ii 

@4,11 SAY count 

store count + 1 to count 

@ 6,1 SAY "ACCESS NAME:" 

(8 6,28 SAY U NAME 

(a 7,1 SAY "IDENTIFICATION NAME:" 
@ 7,28 SAY F NAME 

ACCEPT 'PRESS RETURN TO SEE NEXT TUPLE'TO hold 
SKIE 

ENDDO 

RETURN 

CASE choice = 'P_PROD_D' 

USE P PROD D 

STORE l TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 

CLEAR 

@ 2,33 SAY TITLE 

Q 4,1 SAY "RECORD 

@ 4,11 SAY count 

store count + 1 to count 

6,1 SAY "ACCESS NAME:" 

6,28 SAY P NAME 

7,1 SAY "IDENTIFICATION NAME:!' 
7,28 SAY D NAME 

8,1 SAY "COMMENTS :" 

DISPLAY OFF COMMENTS 

ACCEPT "PRESS RETURN TO SEE NEXT TUPLE'TO hold 


(a) (a) (a) (a) (a) 


ENDCASE 
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122140.PRG 

MODULE NAME: 1.2.1.1.4.0 

INPUT PILES: NONE 

GUTEUT FILES: NONE 

ESUBPHESOTHAT CALL TRE MODLUE: 1.2.1.1.0.0 

ESRUEDEESSTHAT THE MODULE CALLS:1.2.1.1.0.0 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED TDECEIED FROM OR OUTPUT. 


count ID TOM EE MI RAC CE THE RECORD NUMBER BEING DISPLAYED. 
stop, hold USE DATO STOPTACTION FOR USER DECISION. 
SPO: CONLATNS THE USER'S CHOICE ON WHETHER TO OUTPUT TO THE SCREEN 
OR IHE PRINTER. 
E : aoe eee THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 
OOP . 


NAPUFP PILES: MEM VAR. 

BERPUT-ETLES: MEM VAR. 

DESIGNED BY: ROBERT A. KIRSCH 1I 

HNUS] "BI: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

11115 MODULE WILL OUTEUI IE USER, SYSTEM, PROGRAM AND MODULE 
FPP O TIONTELLES TO THE PRINTER. 


RESTORE FROM mem_var 
ALORE 0 TO rec num, stop 


CLEAR 

SN I SAY "1.2.1.1.4.0" 

( 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
GRE Z7 SAY "RELATIONSHIP PRINTER OUTPUT" 

006G 23 SAY "THIS MODULE WILL PRINT" 

@ 8,24 SAY TITLE 

CROS SAY PLEASE INSURE THAT YOUR PRINTER" 
011,25 SAY 15 TURNED ON AND IN THE ONLINE" 
EZ 23 SAY "MODE" 

NIS 73 SAY “IF YOU DO NOT WISH TO PRINT" 
sil“ 253 SAY "THIS RELATIONSHIP, TYPE '0' TO" 
ONO, 23753A% ARETURN TO THE PREVIOUS MENU" 
WAIT TO stop 

DO CASE 

CASE stop = 'O' 

RETURN 

OTHERWISE 

ENDCASE 


SET DEVICE TO PRINT 
SET CONSOLE OFF 

DO CASE 

CASE choice = 'U PROC S' 
USE TU PROC S 

STORE I TO count 
SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

@ 0,33 SAY CHOICE 

e 2,1 SAY "RECORD 


lu 11 SAY count 

store count + l to count 
(a 4,1 SAY "ACCESS NAME:" 
( 4,28 SAY U NAME 

@ 5,1 SAY "IDENTIFICATION NAME:" 
© 5,28 SAY S NAME 

SKIP 

ENDDO 

CASE cholce = 'S PROC P' 
USE S PROC P 

STORE 1 TO count 

SET HEADING OFF 
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DO WHILE .NOT. EOF() 
CLEAR 

a 0,33 SAY CHOICE 

© 2,1 SAY "RECORD 

11 


© 2,11 SAY count 

store count + 1 Co count 

(QA 4,1 SAY "ACCESS NAME:" 

(a = 28 SAY S NAME 

a 5 „l SAY "IDENTIFICATION NAME:" 
(a 5, 28 SAY P_NAME 


CASE choice = 'P_PROC_F' 
USE P PROCITE 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

@ 0,33 SAY CHOICE 

© 2,1 SAY "RECORD 

t 


@ 2,11 SAY count 

store count + 1 to count 

(A 4,1 SAY "ACCESS NAME:' 

(a 4, 20 SAY P NAME 

a 5,1 SAY "IDENTIFICATION NAME:" 
(a 5, 28 SAY F NAME 


CASE choice = 'P PROC R' 
USESFEFROCER 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

a 0,33 SAY CHOICE 

e 2,1 SAY "RECORD 


© 2,11 SAY count 

store count + 1 to count 
(a 4,1 SAY "ACCESS NAME :" 
(A 4,28 SAY P NAME 

(a 5, 1 SAY "IDENTIFICATION NAME:" 
@ 5:28 SAY R NAME 

SKIP 

ENDDO 

ENDCASE 

SET DEVICE TO SCREEN 

SET CONSOLE ong 

RETURN 
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choice 


count 
hold 
option 


t 


* 2: 2: 2: HD 


XXX X AN * * + * 


W221 50BRG 

MODULE NAME: 1.2.1.1.5.0 

INPUT FILES: NONE 

OUTPUT FILES: NONE 

ROUTINES THAI CALL THE MODLUE: 1.2.1.1.0-0 
ROUTINES THAT THE MODULE CALLS :1.2.1.1.0.0 
LOCAL VARIABLES USED: 


: CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 


CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 


: USED TO KEEP TRACK OF THE RECORD NUMBER BEING DISPLAYED. 
: USED TO STOP ACTION FOR USER ECTS NS] 
: CONTAINS THE USER'S CHOICE ON WHETHER TO OUTPUT TO THE SCREEN 


OR ITHE ERINIER: 


: REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 


LOOP. 


INPUT FILE: P PROC E. S CONT P, P CONT M, F CONT R. 
DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE WILL OUTPUT THE NEXT FOUR RELATIONSHIP 
RELATION FILES TO THE PRINTER. 


RESTORE FROM mem var 
STORE 0 TO rec. num, Stop 


CLEAR 


10,23 


(go (e) (Qo (e (en (e) (eo (eo (en (o) (e) 


SAY 
SAY 
SAY 
SAY 
SAY 
SAY 


stop 


0,1 SAY "1.32, 142303 

1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEMS 
3,2/ SAY “RELATIONSHIP PRINTER OUTPUT” 

6,23 SAY "THIS MODULE WIEE PRINGS 

8,24 SAY TITLE 


"PLEASE INSURE THAT YOUR PRINTER” 
"IS TURNED ON AND IN THE ONLINE" 
"MODE" 

PLE YOU DO NOT Wish IO PRINI“ 
“THIS RELATIONSHIP TIVEE O TOR 
"RETURN TO THE PREVIOUS MENU" 


CASE stop = "0" 


RETURN 
OTHERWIS 
ENDCASE 


E 


SEI DEVICE TOTERINI 
SET CONSOLE OFF 


DO CASE 
CASE cho 
USE E PR 


ice 


OCZE 


= 'P PROC E! 


STORE 1 TO count 
SET HEADING OFF 
DO WHILE .NOT. EOF() 


CLEAR 


@ 0,33 SAY CHOICE 
© 2,1 SAY “RECORD 


@ 2,11 SAY count 

store count + 1 to count 

(A 4,1 SAY "ACCESS NAME:" 

(a 4,28 SAY P NAME 

@5,1 SAY "IDENTIFICATION NAME:" 
@ 5,28 SAY E_NAME 


SKIP 
ENDDO 
CASE cho 
USE S CO 


lce 


= ' CONTER 


_CONT_P 

STORE 1 TO count 
SET HEADING OFF 

DO WHILE .NOT. EOF() 


TOF 


LEAR 
0733 SAY CHOICE 
l SAY "RECORD 


© 

(a 

(a 

I 

Gauze) SAY count 

store count + 1 to count 
( 4,1 SAY "ACCESS NAME:" 
( 4,28 SAY S NAME 

@5,1 SAY "IDENTIFICATION NAME:" 
005528 SAY P NAME 

SRLP 

ENDDO i 

SE choice = T.P CONT M“ 
USESP CONT M 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

a 0,33 SAY CHOICE 

G Zt SAY "RECORD 

@ 2,11 SAY count 

Store count + 1 to count 
(4,1 SAY "ACCESS NAME:" 
(8 4,28 SAY P NAME 

@ 5,1 SAY "IDENTIFICATION NAME:" 
@ 5,28 SAY M_NAME 

SKIP 

ENDDO 

CASE choice = 'F CONT R' 
USE F CONT R 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

Eu 55 SAY CHOICE 

e 2,1 SAY "RECORD 


© 2,11 SAY count 

store count + l to count 

(à 4,1 SAY "ACCESS NAME:" 

(a 4,28 SAY F NAME 

@5,1 SAY "IDENTIFICATION NAME:" 
@ 5,28 SAY R_NAME 

SKIP 


SET DEVICE TO SCREEN 
SET CONSOLE ON 
RETURN 
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122160.FRG 

MODULE NAME: 140251 1.6:0 

INPUT FILES: NONE 

OUTPUT FILES: NONE 

ROUTINES THAT CALL THE HODEUE: T 2 1 150520 

ROUTINES THAT THE MODULE CAD55S:1 2 T IRON] 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED DELETED FROM ORSOWOENA 

count : USED TO KEEP TRACK OF THE RECORD NUMBER BEING DISPLAYED. 

hold +: USED TO STÓP ACTION FORFUSERSDEETENONE 

option : CONTAINS THE USER'S CHOICE ON WHETHER TO OUTPUT TO TRET SCREEN 
OR THE PRINTER. 

E : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATERA CODE 


LOOP. 
INPUT FILES: R CONT E, U RESP S, U RESP F, P PRED D. 


DESIGNED BY: ROBERT A. PISU DÚ 
WRITTEN BY: ROBERI A. NIRSEH [TI 
BASIC FUNCTION OP MODULE 

THIS MODULE WILL OUTPUT THE LAST FOUR RELATIONSHIP FIPES IO. THE Pr I E 


RESTORE FROM mem var 


(o) (o (o (e o (o (o (o (o (o m 
= 


0,1 SAY '1.2.1:1 6501 

1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
3,27 SAY URELATIONSHIP PRINTER OUTEUT” 

6,23 SAY "THIS HMODULE WILL EIT 

8,24 SAY TITLE 

0,23 SAY "PLEASE INSURE 04157 YOUR IIE 
11,23 SAY "IS TURNED ON AND IN THE ONLINE“ 
12,235 SAY "MODE! 

14,23 SAY "IF YOU DO NOT WISH TO PRINT" 
15,23 SAY, "THIS RELATIONS HE. TERMO TO 
16,23 SAY "RETURN TO THEWEREVTOUSMENU 


WAIT TO stop 

DO CASE 

CASE stop = '0' 
RETURN 

OTHERWISE 

ENDCASE 

SEF DEVICE TOTERINT 
SET CONSOLE OFF 

DO CASE 

CASE choice = 'R_ CONT E' 
USE R CONT E 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

@ 0,33. SAY CHOICE 
@2,1 SAY "RECORD 


@ 2,11 SAY count 

store count + 1 to count 
a 4,1 SAY "ACCESS NAME :" 
(a 4,28 SAY R NAME 

( 5,1 SAY "IDENTIFICATION NAME :" 
@ 5,28 SAY E NAME 

SKB 

ENDDO 

CASE choice = 'U RESP S' 
USE U RESP S 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 
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LEAR 
9533 SAY CHOICE 
271 SAY "RECORD 


E 

(a 

(a 

"H" 

@ 2,11 SAY count 
Steere count + 1 to count 
@4,1 SAY "ACCESS NAME:" 
@ 4,28 SAY U_NAME 

@ 5,1 SAY "IDENTIFICATION NAME:" 
@ 5,28 SAY S_NAME 

SKIP 

ENDDO 

CASE choice = 'U RESP F' 
U-- U RESP F 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

[120533 SAY CHOICE 

a 2,1 SAY "RECORD 

"U 


@ 2,11 SAY count 

store count + 1 to count 

a 4,1 SAY "ACCESS NAME:" 

a 4,28 SAY U_NAME 

(5 1 SAY "IDENTIFICATION NAME :" 
G 5,28 SAY F_NAME 


CASE choice = 'P_PROD_D' 
USE P PROD D 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 
CLEAR 

@ 0,33 SAY CHOICE 

e 2,1 SAY "RECORD 

G 2,11 SAY count 

store count + 1 to count 
Q 4,1 SAY "ACCESS NAME:" 
G 4,28 SAY P NAME 

@5,1 SAY "IDENTIFICATION NAME:" 
@ 5,28 SAY D_NAME 


ENDCASE 

SE! DEVICE TO SCREEN 
SET CONSOLE ON 
RETURN 
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130000.PRG 
MODULE NAME: 1.3.0.0.0.0 
ROUTINES THAT CALL THE HODLUE: 1.1.0 0 0 6 


1.3.4.0.0.0, 1.3.5.0.0.0, 1.3.6.0.0.0, MAIN 

LOCAL VARIABLES USED: 

choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

t: REPRESTENTS NO VALUE AT ALL. 

hold: USED TO STOP ACTION FOR USER DECISION. 

name: CONTAINS THE ENTITY RELATION NAME. 

entityl: CONTAINS THE ACCESS-NAME FOR THE ENTITY RELATION BEING ? 
QUERIED. 

OUTPUT FILE: MEM VAR. 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RALATION 
AND ACCESS NAME VALUE THAT WILL BE USED IN THE QUERY 


set Color t9 0/3 5 
set talk off 

SET EXACT ON 

ERASE mem var.mem 
CLEAR 

STORE .t. TO true 
do while true 
CLEAR 


A *+ * % % 2 OO OO * *+ 2 *+ E * * 


@ 0 1 SAY "1033050004 

@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM'! 

@ 3,35 SAY "QUERY MENU" 

@ 5,11- SAY TENTIT? I RELATIONSHIP ENDI TY 
@ 5,66 SAY "-2" 

@ 8,10 SAY T USER" 

@ 9,10 SAY "2 SYSTEM" 

@ 10,10 SAY "3 PROGRAM" 

@ 11,10 SAY "4 MODULE" 

(4 12 10 Say "3 DOCUMENT" 

@ 13,10 SAY "6 FILE 

@ 14,10 SAY "7 RECORD" 

@15,10 SAY "8 ELEMENT" 

@ 16,10 SAY "9 RETURN TO PREVIOUS MENU" 

@ 17,9 SAY "10 RETURN TO MAIN MENU" 

GSA SAY N T 

ACCEPT" ENTER YOUR CHOICE (1-10) FROM ABOVE: 'TO choice 
STORFE: f. TO true 

DO CASE 


CASE choice = "l" 

STORE "USER"! TO name 
CASE choice = "2! 

STORE 'SYSTEM' TO name 
CASE choice = "3" 

STORE 'PROGRAM' TO name 
CASE choice = "4" 

STORE 'MODULE' TO name 
CASE choice = "5! 

STORE 'DOCUMENT' TO name 
CASE choice = "6" 

STORE 'FILE' TO name 
CASE choice = "7" 

STORE 'RECORD' TO name 
CASE choice = "8! 

STORE 'ELEMENT' TO name 
CASE choice = "9" 
RETURN 

CASE choice = "10" 
RETURN TO MASTER 
OTHERWISE 

CLEAR 


JE 


ROUTINES THAT THE MODULE CALLS: 1.3.1.0.020, 1.3.2-0 0 0 M MEE DD 


@2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 10 ONLY" 
@ 3,14 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 

STORE .t. TO true 

ENDCASE 

ENDDO 

STORE 'N' TO correct 

DO WHILE correct = 'N' 


STORE STO entityl 

OE L SAY "1.3,0,0.0.0' 

a 2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
G 4,35 SAY "QUERY MENU" 

a 6,12 SAY name 

Qa 6,31 SAY "RELATIONSHIP ENTITY=2" 
@ 8,4 SAY "ENTER THE ACCESS-NAME FOR" 

@ 8,31 SAY name 

@9,4 SAY "YOU WISH TO QUERY ON" 

@ 9,26 GET entityl 

( 10,4 SAY "AND PRESS RETURN" 


SIRORE 'Y' TO correct 

CS SAY ‘is THIS THE ENTITY YOU WISH TO QUERY ON" 
@ 13,44 SAY ENTITY1 

0153 56 SAY "Y OR N" 

@ 13,64 GET correct 


DO CASE 

CASE choice = "1! 

STORE 'USER' TO choice 
STORE 100 TO selection 
SAVE TO mem var 

do 131000 

CASE choice = "2" 

STORE 'SYSTEM' TO choice 
STORE 200 TO selection 
SAVE TO mem var 

do 132000 

CASE choice = "3" 

STORE 'PROGRAM' TO choice 
STORE 300 TO selection 
SAVE TO mem var 

do 133000 

CASE choice = "4" | 
STORE 'MODULE' TO choice 
STORE 400 TO selection 
SAVE TO mem var 

do 134000 

(ASE choice = "5" | 
STORE 'DOCUMENT' TO choice 
STORE 500 TO selection 
SAVE TO mem var 
8959135000 

CASE choice = "6" 


"STORE "BILE' TO choice 


STORE 600 TO selection 
SAVE TO mem var 

do 136000 

CASE choice = "7" f 
STORE 'RECORD' TO choice 
STORE 700 TO selection 
SAVE TO mem var 

do 137000 

CASE choice = "8" 

SIORE EEEMENT" TO choice 
STORE 800 TO selection 
SAVE TO mem var 
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do 138000 
ENDCASE 
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131000 .PRG 

MODULE NAME: 1.3.1.0.0.0 

INPUT FILES: NONE 

OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE: 1.3.0.0.0.0 

ROUTINES THAT THE MODULE CALLS: 1.3.1.1.0.0, 1.3.1.2.0.0 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. 

hold : USED TO STOP ACTION FOR USER DECISION. 

entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
IN A QUERY STRING. 

rel_ ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING. 

true : USED AS A BOOLEAN VALUE IN LOOPS. 

correct : USED AS TO HOLD USER'S CHOICE FOR LOOP TERMINATION. 

SELECTION : USED TO HOLD THE VALUE IDENTIFYING WHICH QUERY TO EXECUTE. 

INPUT FILES: MEM VAR 

OUTPUT FILES: MEM VAR 

mem_var.mem : USED TO TEMPORARILY STORE THE MEMORY VARIABLE VALUES. 

temp. dbf : USED TO STORE THE RESULT OF QUERY EXECUTION. 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP 

VALUE WILL BE USED IN THE QUERY 


RESTORE FROM mem var 
ERASE mem var. mem 
CLEAR 
STORE 'N' TO correct 
DO WHILE correct = 'N' 
STORE .t. TO true 
do while true 
CLEAR 
8 SAY !1:3.1.0.0.0' 
,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
EDS SAY "QUERY MENU" 
: SAY entityl 
5,33 SAY "RELATIONSHIP ENTITY-2" 
Saz SAY "I CONTAINS" 
37 SAY "2 IS RESPONSIBLE FOR" 
E 10, A SAY "3) RETURN TO PREVIOUS MENU" 
1 SAY 
ACCEPT! | ENTER YOUR CHOICE (1-3) FROM ABOVE: 'TO choice 
SNORE .1£. TO true 
DO CASE 
CASE choice = "l" 
STORE NI TU rel ship 
CASE choice = ' 
STORE M RESPONS IBLE FOR' TO rel ship 
CASE choice - "3" 
RETURN 
OTHERWISE 
CLEAR 
(4 2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 
(a 3,14 A RETURN TO TRY AGAIN!' 
ACCEPT TO ho 
STORE .t. TO true 


AO ob ob ob AH HA AH AH HAN 3? ob AM 3 AH HN HN AH o» 3 > > > 


ra) fa) (en (en (en (en (en (e) 
rn 


[uS 123.1,0,0.0" 

1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
3,35 SAY "QUERY MENU" 

5,12 SAY ev 

5,32 SAY rel_ship 

5,54 SAY "ENTITY- zo 

ORE 'Y! TO correct 


Ui (gy feo efe» (a) fe) 


T 
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10,3 SAY "IS THIS THE RELAFIOMSHIE ha 
1173 SAY "YOU WISH TO OU SONZ 
11,23 SAY rel ship 

J2 3 SAT "Y OR N: 

G 12,11 GET correct 


DO CASE © 

CASE choice = "1" | 

STORE 'PROCESSES' TO choice 

STORE selection + 10 TO selection 
SAVE TO mem_var 

do 131100 

CASE choice = "2" 

STORE 'IS RESPONSIBLE FOR' TO choice 
STORE selection + 20 TO selection 
SAVE TO mem var 

do 131200 

ENDCASE 
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U 1190.ERG 

KODULE MSME: 1.3.1.1.0.0 

Salle NE SEAT CALL TRE MODLUE: 1.3.1.0.0.0 

OUES IRAE TRE NODULE CALLS: 1.3.1.0.0.0 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 

entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
IN A QUERY STRING. 

entityl2: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE SECOND VALUE 
IN A QUERY STRING. 

hold S AUCEL OI STE ACITON FOR USER DECISION. 

Gel ship: CONTAINS THE CHARACTER STRONG THAT REPRESENIS THE RELATIONSHIP 
VALUE IN A OUERY STRING. 


t JEDEPRESDBUISOBHE BOGEEAN TRUE IS USED TO CREATE A CONTINUES 
LOOP. 
pue : USED AS A BOOLEAN VALUE IN LOOPS. 


TNEUT FILES: MEM VAR. 

OUTPUT FILES: MEM VAR.* DESIGNED BY: ROBERT A. KIRSCH II 

NETTTEN” BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

PRODUCE ALEGNN TRE DSER TO CHOOSE WHICH TYPE OF ENTITY RALATION 
BND ACOESS NAME VALUE THAT WILL BE USED IN THE QUERY 


Saco LO Reto 0/3,3 

set talk off 

SET EXACT ON 

ERASE mem var. mem 

CLEAR 

STORE "NW TO correct 

DO WHILE correct = 'N'! 

SEORE .t. IO true 

do while true 

CLEAR 

Orel SBE "1.3.1.1.0.0' 

1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
2055 sow "OVERY MENU" 

5 12 SAY carers 

51534 53. rel snip 

5,60 SAY NENTITY- Ze 

8,54 SAF "I SYSTEM" 

9,54 SAY "2 RETURN TO PREVIOUS" 

19759 SAY "MENU! 

NI 4 SAY " U i | 
ACCEPT" ENTER YOUR CHOICE (1-2) FROM ABOVE: 'TO choice 
SPORE .f. TO true 

DO CASE 

CASE choice = "l" 

STORE 'SYSTEM' 10 entity2 

CASE choice = "2" 

RETURN 

OTHERWISE 

CLEAR 

( 2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 2 ONLY" 
(a 3,14 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 

SNORE „€. TO true 


X 2 2 2 X 2 2 2 26 X 2 2 24 2 2 24 2 24 2 AA A A 4- 


(o) (o) (o) (o) (o) (a) (p) (0) (2) 


IS 22 SAY UMMESRMATION RESOURCE DICTIONARY SYSTEM" 
s, 55 557 “QUERY MENU 

¿LUZ SAY entityl 

2122 SAR rel ship 

„59 SAY entity2 

RE “a TO correct 

o SATA DS THE ENTITY YOU WISH TO QUERY ON" 
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a 8,44 SAY entity2 

@ 8 55 SAY "Y OR NE 

@ 8,64 GET correct 

READ 

ENDDO 

DO CASE 

CASE choice = "1! 

SAVE TO mem_var 

SELECT 2 

USE SYSTEM 

SELECT 1 

USE U PROC S | 
JOIN WITH SYSTEM TO TEMP FOR U NAME = entityl .AND. S_NAME = ; 
SYSTEM->ACC_NAME FIELDS ID_NAME, DESCRIPT 
SELECT Z 

USE 

SELECT I 

USE 

do 139000 

ENDCASE 
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131200.PRG 

MODULE NAME: 1.3.1.2.0.0 

ROUTINES THAT CALL THE MODLUE: 1.3.1.0.0.0 

ROUTINES THAT THE MODULE CALLS: 1.3.1.0.0.0 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 

correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 

| CORRECT OR NOT. 
entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
| IN A QUERY STRING. 

entity2 : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE SECOND VALUE 
IN A QUERY STRING. 

hold : USED TO STOP ACTION FOR USER DECISION. 

rel ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING. 

true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEM VAR. 

OUTPUT FILES: MEM VAR. 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RALATIONSHIP 

THAT WILL BE USED IN THE QUERY  . 


T T T T ob ob ob ob ob ob ob ob ob ob ob ob % % % % TL % % 3% 3 *% 


ERASE mem var.mem 
CLEAR 

STORE 'N' TO correct 
DO WHILE correct = IN' 
STORE .t. TO true 

do while true 


ISA U] 3.1.1.0.0" 
1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM! 
5 35 SAY 'OUERY MENU" 
5,11 SAY "ENTITY-1 RELATIONSHIP ENTITY" 
5,66 SAY "-2! 
JL SYSTEM" 
9,54 SAY "2 FILE“ 
10,54 SAY "3) RETURN TO PREVIOUS" 
11155 SAY "MENU 
Jo 4 SAY H l | 
ACCEPT ENTER YOUR CHOICE (1-10) FROM ABOVE: 'TO choice 
STORE .f. TO true 
DO CASE 
CASE choice = "1" 
STORE 'SYSTEM' TO name 
CASE choice = "2" 
STORE 'FILE' TO name 
CASE choice = "3! 
RETURN 
OTHERWISE 
CLEAR 
@ 2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 
@ 3,14 SAY "PRESS RETURN TO TRY AGAIN!" 
ACCEPT TO hold 
STORE .t. TO true 


(QD (eo (eo (eo (en (en (en (eo (e) (e) 
09 
Ln 
> 
un 
p 
K 


mer SAY "1.3.1.2.0.0" 

@1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@ 3,35 SAY "QUERY MENU" 

@5,12 SAY entityl 

@ 5,32 SAY rel_ship 

@ 5,59 SAY name 

STORE Y. TO correct 
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@ 8,3 SAY "IS THIS THE ENTITY YOU WISH TOTOUER SON 
A 8,44 SAY name 

@ 8,56 SAY "Y OR TN" 

@ 8,64 GET correct 


DO CASE 

CASE choice = "1" 

SELECT 2 

USE SYSTEM | 
SELECT 1 

USE U RESP S 

JOIN WITH SYSTEM TO TEMP FOR U NAME = ENTITY! CAND. S NAME = SYSTEM=> ACCNNANEF 
FIELDS 1D NAME, DESCRIPT 

SELECT 2 

USE 

SELECT 1 

USE 

DO 139000 

CASE choice = "2" 

SELECT 2 

USE FILE 

SELECT 1 

USE U RESP F 

JOIN WITH SYSTEM TO TEMP FOR U NAME = ENTITYI .AND. S_NAME = SYSTEM-> ACC NAME; 
FIELDS TDTNAME DESENIEH 

SELECT 2 


USE 
SELECT 1 
USE 

DO 139000 
ENDCASE 
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132000. PRG 

MODULE NAME: 1.3.2.0.0.0 

ROUTINES THAT CALL THE MODLUE: 1.3.0.0.0.0 

ROUTINES THAT THE MODULE CALLS: MAIN 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 

correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 

| CORRECT OR NOT. 
entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
~ IN A QUERY STRING. 

rel ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING. 

true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEM VAR. 

OUTPUT FILES: MEM VAR. 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RALATIONSHIP 

THAT WILL BE USED IN THE QUERY 


zxecolor to 0/3,3 
set talk off 
SET EXACT ON 
RESTORE FROM mem var 
ERASE mem var. mem 
CLEAR 
STORE 'N' TO correct 
DO WHILE correct = "N! 
STORE .t. TO true 
do while true 

A 


*+ * 3 * 3 3 xb o ob ob obobobobotobob ob or or or oro - 


1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
57359238 "OUERY MENU” 

5,11 SAY entityl 

2033 SAY "RELATIONSHIP ENTIT: =2" 
SAY "I PROCESSES" 

SR ZI SAY UZ IS PROCESSED BY” 

11,29 SAY i CONTAINS" 

13,29 SAY "4 RETURN TO PREVIOUS MENU" 


fa) (o) fa) (a) fa) (a) fa) (eo (eo fe) 
~J 
N 
e 


14,4 SAM n 
AGCEPT! ENTER YOUR CHOICE (1-4) FROM ABOVE: 'TO choice 
SHORE .f. TO true 
DO CASE 


CASE Choice = "1" 

STORE 'PROCESSES! TO rel ship 

CASE choice = "2" 

STORE 'IS PROCESSED BY! TO rel „ship 
CASE choice zs 

STORE 'CONTAINS' TO rel Ship 

CASE choice = "4" 

RETURN 

OTHERWISE 

CLEAR 

@ 2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 4 ONLY" 
@ 3,14 SAY "PRESS RETURN TO TRY AGAIN!" 
ACCEPT TO hold 

SHORE .t. TO true 

ENDCASE 


(AOP Sava 322 .0.0.0% 

a 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
© 3,35 SAY "QUERY MENU" 

a 5,12 SAY entityl 
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5,32 SAY rel_ship 

5,58 SAY "ENTITY-2' 

7,4 SAY "IS THIS THE REBLATIONSHIB!:I 
8,4 SAY "THAT YOU WISH TO QUERY ON" 
8,31 SAY rel_ship 

9,4 SAY "Y OR N" 

@ 9,12 GET correct 


CASE choice = "1" 

STORE selection + 10 TO selection 
SAVE TO mem_var 

de 132100 

CASE choice = "2" 

STORE selection + 20 TO selection 
SAVE TO mem var 

do 132200 

CASE choice = 93! 

STORE selection + 30 TO selection 
SAVE TO mem var 

do 152500 

ENDCASE 
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133000 . PRG 

MODULE NAME: 1.3.3.0.0.0 

ROUTINES THAT CALL THE MODLUE: 1.3.0.0.0.0 

ROUTINES THAT THE MODULE CALLS: MAIN 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 

correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 

| CORRECT OR NOT. 
entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
IN À QUERY STRING. 

rel_ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN À QUERY STRING. 

true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEM_VAR. 

OUTPUT FILES: MEM VAR. 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RALATION 

AND ACCESS NAME VALUE THAT WILL BE USED IN THE QUERY 


RESTORE FROM mem var 
ERASE mem var.mem 
CLEAR 

STORE 'N' TO correct 
DO WHILE correct = 'N'! 
STORE .t. TO true 

do while true 

CLEAR 


ob ob »b »b ob »b 2: 26 2: 25 26 26 26 % % 0: 2% % 2: 2 2: % 2% 


ROBI SAY 01.3. 3.0.0.0" 
@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
i Em SAY E NL 

E SAY entity 
@ 5,33 SAY "RELATIONSHIP EINNITY-2" 
a 7,28 SAY 12 PROCESSES" 
09,28 SAY "2 IS PROCESSED BY! 
0111. 28 SAY "3 CONTAINS" 
© 13,28 SAY "4 PRODUCES" 
0115 28 SAY "5 TS HE RESPONISBILITY OF" 
@ 17,28 SAY "6 IS CONTAINED IN" 
z I. 45 SAY "7 RETURN TO PREVIOUS MENU' 

,4 SAY 

ATT, ENTER YOUR CHOICE (1-7) FROM ABOVE: 'TO choice 
SIORE .£. TO true 
DO CASE 


ts: choice = "1" f 

SM BEM PROCESSES" TO rel ship 

GE choice — "2" 
SEBE IS PROCESSED BY' TO rel_ship - 
EPE choice = "3" f 

STORE 'CONTAINS' TO rel ship 

CASE choice = "4" 

STORE 'PRODUCES' TO rel_ship 

GBSE choice = "5" 

STORE 'IS THE RESPONSIBILITY OF' TO rel ship 
CASE choice = "6" ' 
STORE !IS CONTAINED IN' TO rel ship 
CASE choice = "7" 

RETURN 

OTHERWISE 

CLEAR 

@ 2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 7 ONLY" 
@ 3,14 SAY "PRESS RETURN TO TRY AGAIN!" 
ACCEPT TO hold 

STORE .t. TO true 

ENDCASE 
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AñO 1 SAY MN]. 3 35050 0 

© 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
Gis 35 SAY "QUERY MENU" 

© 5,12 SAY entityl 

© 5,32 SAY rel ship 

@ 5,58 SAY "ENTITY-2" 

Q 7,4 SAY "IS THIS THE RELATIONSHIP" 

Q 8,4 SAY "THAT YOU WISH TO QUERY ON" 

a 8,31 SAY rel ship 
(a 9,4 SAY "Y OR N" 
@ 9,12 GET correct 


DO CASE 

CASE choice = "1" | 
STORE selection + 10 TO selection 
SAVE TO mem_var 

do 133100 

CASE choice = "2" 

STORE selection + 20 TO selection 
SAVE TO mem_var 

do 133200 

CASE choice = "3" 

STORE selection + 30 TO selection 
SAVE TO mem_var 

do 133300 

CASE choice = "4" 

STORE selection + 40 TO selection 
SAVE TO mem_var 

do 133400 

CASE choice = "5! 

STORE selection + 50 TO selection 
SAVE TO mem_var 

do 1133500 

CASE choice = "6" 

STORE selection + 60 TO selection 
SAVE TO mem var 

do 133600 

ENDCASE 
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134000.PRG 

MODULE NAME: 1.3.4.0.0.0 

ROUTINES THAT CALL THE MODLUE: 1.3.0.0.0.0 

ROUTINES THAT THE MODULE CALLS: MAIN 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 

correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 

| CORRECT OR NOT. 
entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
_ IN A QUERY STRING. 

rel_ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING. 

true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEM_VAR. 

OUTPUT FILES: MEM_VAR. 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 

USED IN THE QUERY. 


RESTORE FROM mem_var 
ERASE mem_var.mem 
CLEAR 

STORE "N' TO correct 
DO WHILE correct = 'N' 
SIORE .t. TO true 

do vhile true 


HUND SAY !1.3.4.0.0.0" 

@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
nu 35 SAY "QUERY MENU“ 

8 5,11 SAY entityl 

@ 5,33 SAY "RELATIONSHIP ENTITYV- 2 

i u. ad tony "I IS CONTAINED IN" 
(a 
(a 


A AAA A X ob ok ok oF ob oF 


9,29 SAX Z IS PROCESSED BY" 
n 220 SRY ii I M6 FESFONSIBILITY OE“ 


15. 29 SAY "4 RETURN TO PREVIOUS MENU" 


© 14,4 SAY " " | 
ACCEPT! ENTER YOUR CHOICE (1-4) FROM ABOVE: 'TO choice 
STORE .f. TO true 

DO CASE 


CASE choice = "l" 

STORE 'IS CONTAINED IN' TO rel ship 

CASE choice = "2" 

STORE 'IS PRODESSED BY' TO rel ship 

CASE choice = "3! 

STORE "IS THE RESPONSIBILITY OE' TO rel_ship 
CASE choice = "4" 

RETURN 

OTHERWISE 

CLEAR 

( 2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 4 ONLY" 
@ 3,14 SAY "PRESS RETURN TO TRY AGAIN!" 
ACCEPT TO hold 

STORE .t. TO true 


1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
9,39 S "GUERY MENU" 

5,12 sey entityl 

5,32 88% relrship 

5,58 SAY "ENTITY-2" 

re SAN TS THIS THE RELATIONSHIP" 

8,4 SAY "THAT YOU WISH TO QUERY ON" 

8,31 SAY rel ship 

9,4 SAY "Y OR N' 


(en (eo (Q0 (go (en (eo (e0 (en (e2 (e) 
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a 9,12 GET correct 

READ 

ENDDO 

DO CASE . 

CASE choice = "15 

STORE selection + 10 TO selection 
SAVE TO mem var 

do 134100 

CASE choice = "2" 

STORE selection + 20 TO selection 
SAVE TO mem_var 

do 134200 

CASE choice = "3" 

STORE selection + 30 TO selection 
SAVE TO mem_var 

do 134300 

ENDCASE 
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135000.PRG 

MODULE NAME: 1.3.5.0.0.0 

ROUTINES THAT CALL THE MODLUE: 1.3.0.0.0.0 

ROUTINES THAT THE MODULE CALLS: MAIN 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 

correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 
CORRECT OR NOT. 

entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 

IN A QUERY STRING. 

rel ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING. 

true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEM VAR. 

OUTPUT FILES: MEM VAR. 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 

USED IN THE QUERY. 

Sebfcalor to 0/3,3 

set talk off 

SET EXACT ON 

RESTORE FROM mem_var 

ERASE mem_var. mem 

CLEAR 

STORE 'N' TO correct 

DO WHILE correct = 'N' 


o ob ob ob OE OF A A OE OF OE OE 0E AAA E O OF 


NAOMI SAV 11.3.5.0.0.0" 
@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
Č 5/11 SAY eňtityl — 

j entity 
© 5,33 SAY "RELATIONSHIP EM 2 
Uo 28 SAY "19 IS PRODUCED BY. 
@ 10, 28 SAY "2) RETURN TO PREVIOUS MENU" 


@ 11,4 SAY " " 

ACCEPT" ENTER YOUR CHOICE (1- 2) FROM ABOVE: 'TO choice 
STORE .f. TO true 

DO CASE 


CASE choice = "1! 

STORE 'IS PRODUCED BY' TO rel_ship 

CASE choice = "2" 

RETURN 

OTHERWISE 

CLEAR 

(A 2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 2 ONLY" 
@ 3,14 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 

STORE .t. TO true 


GONI SAY "1,3.5.0.0.0" 

Q 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM". 
© 3,35 SAY "QUERY MENU" 

012 12 SAY entityl 

@ 5,32 SAY rel ship 

Qa 5,58 SAY "ENTITY-2" 

@ 7,4 SAY "IS THIS THE RELATIONSHIP" 

(a 3,4 SAY "THAT YOU WISH TO QUERY ON" 

à 8,31 SAY rel ship 
(a 9, 4 SAY "Y OR N" 
a 9,12 GET correct 
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CASE choice = "l" 

STORE selection + 10 TO selection 
SAVE TO mem_var 

do 135100 

ENDCASE 
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136000.PRG 

MODULE NAME: 1.3.6.0.0.0 

ROUTINES THAT CALL THE MODLUE: 1.3.0.0.0.0 

ROUTINES THAT THE MODULE CALLS: MAIN 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 

correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 

| CORRECT OR NOT. 
entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
. . IN A QUERY STRING. 

rel ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING. 

true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEM VAR. 

OUTPUT FILES: MEM_VAR. 

THIS MODULE: ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 

USED IN THE QUERY. 


RESTORE FROM mem_var 

ERASE mem_var. mem 

CLEAR 

STORE 'N' TO correct 

DO WHILE correct = 'N' 

STORE .t. ITO true 

do while true 

CLEAR 

DEDSSAY !1.3-6.0.0.0' 

122 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
5 35 SAY "QUERY MENU" 

5,11 SAY entityl 

5,33 SAY "RELATIONSHIP ENTITY-2!! 
7 „28 SAY "1 CONTAINS" 

9, „28 SAY "2 IS PROCESSED BY" 

ii. 28 SAY bu IS THE RESPONSIBILITY OF" 


AAA AAA A A AAR A AAA AA 26 24 26 2 


15 28 SAY "4 RETURN TO PREVIOUS MENU!: 

14,4 SA. n 

ACCEPT ' ENTER YOUR CHOICE (1-4) FROM ABOVE: 'TO choice 
STORE .f. TO true 

DO CASE 

CASE choice o 

STORE 'CONTAINS' TO rel ship 

CASE choice = "2" 

STORE "IS PROCESSED BY“ To rel _ship 

CASE choice = "3" 

STORE ‘IS THE RESPONSIBILITY OF' TO rel ship 

CASE choice = "4" 

RETURN 

OTHERWISE 

CLEAR 

@ 2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 4 ONLY" 
@ 3,14 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 

STORE .t. TO true 

ENDCASE 


fe) (e) (e) (e) fe) (e) (e) (e) (eo (o) 


EEISSAY "1.3.6.0.0.0" 

1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
3,35 SAY "QUERY MENU" 

5, 12 SAY Ed 

5,32 SAY rel ship 

5.58 SAY "ENTITY- Zu 

7,4 SAY "IS THIS THE RELATIONSHIP" 

8,4 SAY "THAT YOU WISH TO QUERY ON" 

8,31 SAY rel ship 

9,4 SAY "Y OR N" 


(e) (efe) (e) (e) (e) (p) (o) fe) fe) 
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a 9,12 GET correct 


DO CASE . 

CASE cholce z IS | 
STORE selection + 10 TO selection 
SAVE TO mem_var 

do 136100 

CASE choice <12 | 
STORE selection + 20 TO selection 
SAVE TO mem_var 

do 136200 

CASE choice = "3" 

STORE selection + 30 TO selection 
SAVE TO mem_var 

do 136300 

ENDCASE 
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137000.PRG 

MODULE NAME: 1.3.7.0.0.0 

ROUTINES THAT CALL THE MODLUE: 1.3.0.0.0.0 

ROUTINES THAT THE MODULE CALLS: MAIN 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 

correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 

| CORRECT OR NOT. 
entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
IN A QUERY STRING. 

rel ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING. 

true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEM VAR. 

OUTPUT FILES: MEM VAR. 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 

USED IN THE QUERY. 


RESTORE FROM mem_var 
ERASE mem_var. mem 
CLEAR 

STORE 'N' TO correct 
DOFWRILE correct = 'N' 
STORE .t. TO true 

do while true 

CLEAR 


MAA AA AA A A ARA AXA S s S S 


MC SAY À"153.7.0.0.0" 

a 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM! 
@ 3 35 SAY "QUERY MENU" 

G5 11 SAY entity 

@5,33 SAY "RELATIONSHIP ENTITY-2" 

4 9.27 SAY ME CONTAINS" 

@ 9,27 SAY "2 IS CONTAINED IN" 

@ 11,27 SAY "3 IS PROCESSED BY" 

@ 13,27 SAY "4 IS THET RESPONSIBILITY OF" 

(HE 27 SAY "5 RETURN TO PREVIOUS MENU" 

dalo 1 SAY " " 

ACCEPT! ENTER YOUR CHOICE (1-5) FROM ABOVE:'TO choice 
STORE .f. TO true 

DO CASE 


CASE choice = "1! 

STORE 'CONTAINS' TO rel ship 

CASE choice = "2" 

STORE "IS CONTAINED IN“ TO rel „ship 

CASE choice = "3" 

STORE 'IS PROCESSED BY' TO rel _ship 

CASE choice = "4" 

STORE 15 THE RESPONSIBILITY OF! TO rel _ship 
CASE choice = "5" 

RETURN 

OTHERWISE 

CLEAR 

@ 2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 5 ONLY" 
@ 3,14 SAY "PRESS RETURN TO TRY AGAIN!" 
ACCEPT TO hold 

SHORE .t. TO true 

ENDCASE 

ENDDO 

CLEAR 

OF SAE 7.0. 0.0" 

1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM'! 
3 „35 SAY "QUERY MENU" 

5,12 SAY entit I 

on „32 SAY rel ship 

5,58 SAY "ENTITY-2' 

7,4 SAY "IS THIS THE RELATIONSHIP" 


(o) (o) (ad fo) (o) (DD 
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© 8,4 SAY "THAT YOU WISH TO OUERY ON" 
G 8,31 SAY rel, ship 
@ 9,4 SAY "Y OR N! 


DO CASE 

CASE choice = "1" | 
STORE selection + 10 TO selection 
SAVE TO mem_var 

do 137100 

CASE choice = "2" 

STORE selection + 20 TO selection 
SAVE TO mem var 

do 137200 

CASE choice = "3" | 
STORE selection + 30 TO selection 
SAVE TO mem_var 

do 137300 

CASE choice = "4" 

STORE selection + 40 TO selection 
SAVE TO mem var 

do 137400 

ENDCASE 
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138000.PRG 

MODULE NAME: 1.3.8.0.0.0 

ROUTINES THAT CALL THE MODLUE: 1.3.0.0.0.0 

ROUTINES THAT THE MODULE CALLS: MAIN 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 

correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 

| CORRECT OR NOT. 
entity? ? CONTAIN? TH? CHARACTE? STRIN? THA? REPRESENT? TH? FIRS? VALUE 
| IN A QUERY STRING. 
entity2 ? CONTAIN? TH? CHARACTE? STRIN? THA? REPRESENT? TH? SECOND VALUE 
= IN A QUERY STRING. 

rel ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING. 

true : USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEM VAR. 

OUTPUT FILES: MEM VAR. 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 

USED IN THE QUERY. 


RESTORE FROM mem var 
ERASE mem var.mem 
CLEAR 

SORE 'N* TO correct 
DO WHILE correct = 'N' 
STORE .t. TO true 

do while true 

CLEAR 


AO OR 2h 


DRUPI SAY “]53.8.0.0:0"! 
@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
Š > SAY "QUERY MENU" 

,11 SAY entityl 
a 5,33 SAY "RELATIONSHIP ENTITY-2! 
[1102 SAY "] IS CONTAINED IN' 
@ 9,27 SAY "2 IS PROCESSED BY" 
@ 11,27 SAY E IS THE RESPONSIBILITY OF" 
E 13. 27 SAY "4 RETURN TO THE PREVIOUS MENU" 

14,4 SAY 

SA 6. ENTER YOUR CHOICE (1-4) FROM ABOVE: 'TO choice 
STORE TO true 
DO CASE 


CASE choice = "1" 

STORE 'IS CONTAINED IN' TO rel ship 

CASE choice = "2" 

STORE 'IS PROCESSED BY' TO rel ship 

CASE choice = "3" 

STORE 'IS THE RESPONSIBILITY OF' TO rel ship 
CASE choice = "4" 

RETURN 

OTHERWISE 

CLEAR 

@ 2,14 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 4 ONLY'! 
@ 3,14 SAY "PRESS RETURN TO TRY AGAIN!" 
ACCEPT TO hold 

STORE .t. TO true 

ENDCASE 


00 SAY i] .3-8.0.0.0" 

1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM! 
5905 84 QUERY MENU" 

5.12 SAY entit l 

5,32 SAY rel ship 

5, 58 SAY "ENTITY-2" 

l SAY "IS THIS THE RELATIONSHIP" 

8,4 SAY "THAT YOU WISH TO OUERY ON" 
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© 8,31 SAY rel ship 

a 9,4 SAY "Y OR N" 

a 9,12 GET correct 

READ 

ENDDO 

DO CASE 

CASE Chocce Sanii 

STORE selection + 10 TO selection 
SAVE TO mem_var 

do 138100 

CASE choice = "2" 

STORE selection + 20 TO selection 
SAVE TO mem var 

do 138200 

CASE choice = "3" 

STORE selection + 30 TO selection 
SAVE TO mem var 

do 138300 

ENDCASE 
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139000.PRG 

MODULE RANE: 1.3.9.0.0.0 

HU vl] 01 A CALL THE MODLUE: 1.3.1.1.0.0 THRU 1.3.8.3.0.0 

EO DONE SADA I tHE MODULE CALLS:1.3.1.1.0.0 THRU 1.3.8.3.0.0 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
Coane len OL RING THATS IDENTIFIES THE RELATION BEING ADDED TO, 
NODTERTED DELETED FROM OR OUTPUT. 

erue : USED AS A BOOLEAN VALUE IN LOOPS. 

option =: USED TO HOLD THE VALUE REPRESENTING THE CHOICE OF PRINTER OR 
SOREENCOUTEDIS 

PNEU FILES: MEM VAR. 

OUTPUT FILES: MEM VAR. 

1510-0 NODUĽE ALLOY THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 

USEBEEN THE QUERY: 

BE -IGNED BY: ROBERT A. KIRSCH IT 

hire BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OE MODULE: 

EHUGSNUIODUEECALDONSIHECUSER TO CHOOSE WHETHER THE OUTPUT WILL BE 

BESELAYED ONS THE SCREEN OR PRINTED. 


RESTORE FROM mem_var 
STORE O TO rec num, stop 
CLEAR 

STORE .t. TO TRUE 

do while TRUE 

CLEAR 


(a 


"NES u 00,00 


RESTORE FROM mem var 


(Q) (go (eo (en (e (en (e) (e) (c0 (e) (c0 (e) 


2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
4,34 SAY "QUERY OUTPUT" 

0.29 SAL O EISIEM BEĽOS ARE TRE CHOICES FOR HOW" 
2 23 SAY YOU CAN HAVE THE: QUERY" 

11,24 SAY entityl 

51556 Sny Gel ship 

11,57 SAY entity2 

1 25 SAY UDESPLAZED.' 

RS, 20 SAX "l SCREEN OUTPUT" 

BO zo SAY "2 PRINPER OUPUI' 

1-28 SAY "3 RETURN TO PREVIOUS MENU! 


ACCEPT ' ENTER YOUR CHOICE (1-3) FROM ABOVE 'TO option 
ERASE mem var.mem 

SAVE TO mem var 

DO CASE 

CSE oOption = "1" 

DO 139100 

CASE option = "2! 

DO 139200 

GASE option = "3! 

RETURN 

OTHERWISE 

CLEAR 

© 0,27 SAY option 

@ 0,34 SAY VIS NOT A VALID CHOICE" 

@ 1,26 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 
@ 2,26 SAY "PRESS RETURN AND TRY AGAIN!" 

ACCEPT TO hold 

ENDCASE 

ENDDO 
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139100.PRG 

MODULE NAME: 1.3.9.1.0.0 

ROUTINES THAT CALL THE MODLUE: 1.3.9.0.0.0 

ROUTINES THAT THE MODULE CALLS:1.3.9.0.0.0 . 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM OR OUTPUT. 

hold : USED TO STOP ACTION FOR USER DECISION. 

option : CONTAINS THE USER'S CHOICE ON WHETHER TO OUTPUT TO THE SCREEN 
OR THE PRINTER. 

stop : USED TO STOP ACTION FOR USER DECISION. 

B : REPRESTENTS THE BOOLEAN TRUE IS USED TO CREATE A CONTINUES 
LOOP. 

entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 

| IN A QUERY STRING. 

entity2 : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE SECOND VALUE 
IN A OUERY STRING. 

rel ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING. 

INPUT FILES: MEM VAR. 

OUTPUT FILES: MEM VAR. 

THIS MODULE WILL DISPLAY THE RESULTS OF THE QUERY ON THE SCREEN. 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE WILL DISPLAY THE RESULTS OF THE QUERY 

ON THE SCREEN. 

PROGRAM AND MODULE RELATIONS 


OR OO OO OO OOOO OO OOOO OOOO 


@ 0,1 SAY "1.3.9 - 150501 

( 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@ 3,30 SAY "QUERY SCREEN OUTPUT! 

@ 5,22 SAY "THIS MODULE WILL DISPLAY THE RESULTS OF" 

@ 7,21 SAY entityl 

@ 7,38 SAY rel_ship 

@ 7,59 SAY entity2 

@9,22 SAY "IF YOU DO NOT WISH TO DISPLAY THIS RELATION," 
@ 10,22 SAY “TYPE "0" TO RETURN IO THE PREVIOUS MENU, > 


CASE stop = "0! 

RETURN 

OTHERWISE 

ENDCASE 

CLEAR 

USE TEMP 

STORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 

CLEAR 

(a 0,1 SAY "1:329 2090 30 

(a 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@ 3,32 SAY "QUERY RESULTS fen. 
@ 5,21 SAY entityl 

@ 5,38 SAY rel_ship 

© 5,59 SAY entity2 


SIORE 1 TO count 

SET HEADING OFF 

DO WHILE .NOT. EOF() 

@ 7,1 SAY "RECORDER! 

(a 7,9 SAY count 

(a 9,1 SAY " M" 

store count + 1 to count 

@ 10,4 SAY "IDENTIFICATION NAME:" 
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© 10,31 SAY ID NAME 

01 16 4 SAL DESCRIPTION:" 
© 12,21 SAY descript 

@ 17,4 SAY " 

WAIT TO hold 
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139200.PRG 

MODULE NAME: 1.3.9.2.0.0 

INPUT FILES: NONE 

OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE: 1.3.9.0.0.0 

ROUTINES THAT THE MODULE CALLS:1.3.9.0.0.0 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO; 
MODIFIED, DELETED FROM OR OUTPUT. 

correct : CONTAINS USER RESPONSE AS TO WHETHER THE DISPLAYED VALUE IS 
CORRECT OR NOT. 

entityl : CONTAINS THE CHARACTER STRING THAT REPRESENTS THE FIRST VALUE 
IN A QUERY STRING. 

entity2 : CONTAÍNS THE CHARACTER STRING THAT REPRESENTS THE SECOND VALUE 
IN A QUERY STRING. 

rel ship: CONTAINS THE CHARACTER STRING THAT REPRESENTS THE RELATIONSHIP 
VALUE IN A QUERY STRING. 

true USED AS A BOOLEAN VALUE IN LOOPS. 

INPUT FILES: MEM IUE 

OUTPUT FILES: MEM VAR. 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 

USED IN THE QUERY. 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE WILL OUTPUT THE QUERY TO THE PRINTER. 


SET EXACT ON 

set color to" 0/3 3 

set talk off 

set menu on 

SET EXACT ON 

RESTORE FROM mem var 
STORE O TO rec num, stop 


@ 0,1 SA7? "N]525 Z (ee JE 

@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@ 3,29 SAY "QUERY PRINTER OUTPUT” 

Q 6,23 SAY "THIS MODULE WILL PRINT QUERY" 

© 8,20 SAY entityl 

a 8,37 SAY rel ship 

@ 8,56 SAY name 

e 10,23 SAY "PLEASE INSURE THAT YOUR PRINTER" 
(a 

(a 

(a 


Ó OOO OO OO OOO OOO OOO OOO * 


11,23 SAY "IS TURNED ON AND IN THE ONEINE” 
12,25 SAY “MODE: 
132.23 SAY "IF YOU DO NOT WISH TO PBINI"” 
15.23 SAY "THIS RELATION, TYPE S Loe 
@ 16523 SAY "RETURN TO THE PREV EU PE NU 
WAIT TO stop 


CASE stop = "0! 

RETURN 

OTHERWISE 

ENDCASE 

SET DEVICE TO PRINT 

SET CONSOLE OFF 

USE TEMP 

STORE 1 TO count 

DO WHILE .NOT. EOF() 

33.1 SAY 3920-05 

30,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
32,32 SAY “RESULTS FOR QUERY" 
34,20 SAY entityl 

34, 37 SAY rel ship 

34,56 SAY name 

40, l SAY "RECORD it" 

40,11 SAY count 


(eo (eo (en (eo (eo (en (en (e) 
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EE. count € 1 to count 

@ 42 SAY "IDENTIFICATION NAME:" 
(a ^r 30 SAY ID NAME 

a 4 SAY "DESCRIPTION:" 


Si 44, 19 SAY descript 
KIP 


ENDDO 

SEHADEVICE TO SCREEN 
SET CONSOLE ON 
RETURN 
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140000.PRG 

MODULE NAME: 1.4.0.0.0.0 

INPUT FILES: NONE 

OUTPUT FILES: NONE 

ROUTINES THAT CALL THE MODLUE: MAIN 

ROUTINES IHAT THE MODULE CALLS:1.1.1.0:;090 T TT TTT Onn 

1.1.4.0.0.0, 1.1.50 0 ail, 

LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 
t: REPRESTENTS NO VALUE AT ALL. 
hold: USED TO STOP ACTION FOR USER DECISION. 

DESIGNED BY: ROBERI A SISI [0 

WRITTEN BY: ROBERT AA. RIESCH II 

BASIC FUNCTION OF MODULE: 

THIS PROGRAM ALLOWS FOR THE MAINTENANCE OF ENTITY SCHEMA, 

AND RELATIONSHIP SCHEMA. 


o ob Ob Ob Ob ob Ob Ob Ob Ob Ob Ob ob ob ob ck 


do while .t. 

CLEAR 

a 0I SAY UTL.q 0 0.070 

( 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
© 3,31 SAY "MAINTENANCE MENU" 

@ 6, 22 SAY "1) MODIFY ENTITY SCHEMA" 

( 622 SAV 02) MODIFY RELATIONSHIP SCHEMA" 

ESTO 22054 U3) RETURN TO MAIN MENU" 

ONTI, 1 SAY "U 

ACCEPT ' ENTER YOUR CHOICE (1-3) FROM ABOVE: ' TO choice 
DO CASE 

CASE choice = "1" 

do 141000 

CASE choice = "2 

DO 142000 


CASE choice = "3" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

© 2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 
© 3,20 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 

ENDCASE 

ENDDO 

RETURN 


223 


141000.PRG 
MODULE NAME: 1.4.1.0.0.0 
NNPUT FILES: NONE 
SUMPUT FILES: NONE 
ROUTINES THAT CALL THE MODLUE: 1.4.0.0.0.0 
ROUTINES THAT THE MODULE CALLS: MAIN 
LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 
t: REPRESTENTS NO VALUE AT ALL. 
hold: USED TO STOP ACTION FOR USER DECISION. 
INPUT FILES: MEM VAR USER, SYSIEM, PROGRAM, MODULE, DOCUMENT, FILE, RECORD, 
ELEMENT. 
PUT EPEES:: MEM VAR, USER, SYSTEM, PROGRAM, MODULE, DOCUMENT, FILE, RECORD, 
ELEMENT 
DESIGNED BY: ROBERT A. KIRSCH II 
KOMTTEN BY: |) ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 
THATS MODULE ALLOW IHE USER TO CHOOSE WHICH TYPE OF ENTITY RELATION 
TO MODIFY. 


+ X OX Ob Ob Ob Ob Ob Ob Ob ob Ob Ob ok Ok ob ob ot o 


do while .t. 

CLEAR 

OBO SAY "1.4 1.050.0" 

© 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@3,31 SAY "MODIFY ENTITY SCHEMA" 

© 6,15 SAY "1) USER 6) FILE! 

Q815 SAY "2) SYSTEM 7) RECORD" 

© 10,15 SAY "3) PROGRAM 8) ELEMENT" 

© 12,15 SAY 4) MODULE 9) RETURN TO PREVIOUS MENU" 
@ 14,15 SAY "5) DOCUMENT 10) RETURN TO MAIN MENU" 
CELS I1 SAY KN u 

ACCEPT' ENTER YOUR CHOICE (1-10) FROM ABOVE: 'TO choice 
DO CASE 

CASE choice = "]" 

USE USER 


MODIFY STRUCTURE 
CASE choice = "2" 
USE SYSTEM 
MODIFY STRUCTURE 
CASE choice = "3" 
USE PROGRAM 
MODIFY STRUCTURE 
CASE choice — "4! 
USE MODULE 
MODIFY STRUCTURE 
CASE choice = "5" 
USE DOCUMENT 
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MODIFY STRUCTURE 
CASE choice = "6" 
USE FILE 

MODIFY STRUCTURE 
CASE choice = "7! 
USE RECORD 

MODIFY STRUCTURE 
CASE choice = "8! 
USE ELEMENT 
MODIFY STRUCTURE 
CASE choice = "9! 
RETURN 

CASE choice = "10" 
RETURN TO MASTER 
OTHERWISE 

CLEAR 

@ 2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 10 ONLY" 
@ 3,20 SAY "PRESS RETURN TO TRY AGAIN!" 
ACCEPT TO hold 
ENDCASE 

ENDDO 

RETURN 
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142000.PRG 
ROUTINES THAT CALL THE 


LOCAL VARIABLES USED: 


INPUT EILES: MEM VAR , 


AAA O 26 26 26 X 36 6 + + + 3+ 


MODULE NAME: 1.4.2.0.0.0 


NODEUE 1,4.0.0.0.0 


ROUTINES THAT THE MODULE CALLS:1.4.0.0.0.0, MAIN 


choice: CONTAINS THE NUMBER OF ACTION SELECTED. 
t: REPRESTENTS NO VALUE AT ALL. 
hold: USED TO STOP ACTION FOR USER DECISION. 


U_CONTS, U_CONT_S, 


U_CONT_P, P_PROC_F, P_PROC R, 
P PROC R. P PROC E. S CONT P, P CONT M, F CONT R, R CONT E, 
U RESP S, U RESP F, P PRED D. 
OUTPUT FILES: MEM VAR, ELEMENT, U CONTS, U CONT S, 
U CONT P, P PROC F, P PROC R, 
P PROC R. P PROC E. S CONT P, P CONT M, F CONT R, R CONT E, 
U RESP S, U RESP F, P PRED D. 


* DESIGNED BY: ROBERT A. KIRSCH II 

* WRITTEN BY: ROBERT A. KIRSCH II 

* BASIC FUNCTION OF MODULE: 

* THIS MODULE ALLOW THE USER TO CHOOSE WHICH RELATIONSHIP 

* SCHEMA HE WOULD LIKE TO MODISY. 

x 

do while .t. 

CLEAR 

SET MENU ON 

I| SAY !] 2 .2.0.0.0" 

@ 2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@4,25 SAY "RELATIONSHIP SCHEMA MAINTENANCE" 

@6,9 SAY "1) USER CONTAINS SYSTEM 8) FILE CONTAINS REC" 
Qa 6,64 SAY "ORDS" 

@ 8,9 SAY "2) SYSTEM CONTAINS PROGRAM 9) RECORD CONTAINS E" 
@ 8,64 SAY "LEMENT" 

@10,9 SAY "3) PROGRAM PROCESSES FILE 10) USER RESPONSIBLE" 
@ 10,64 SAY "FOR SYSTEM" 

@12,9 SAY "4) PROGRAM PROCESSES RECORD 11) USER RESPONSIBLE" 
@12,64 SAY "FOR FILE" 

© 14,9 SAY "5) PROGRAM PROCESSES ELEMENT 12) PROGRAM PRODUCES" 
@ 14,64 SAY "DOCUMENT" 

@16,9 SAY "6) SYSTEM CONTAINS PROGRAM 13) RETURN TO PREVIOU" 
@16,64 SAY "S MENU" 

@ 18,9 SAY "7) PROGRAM CONTAINS MODULE 14) RETURN TO MAIN ME" 
(a 18,64 SAY "NU" 

QATO Say NU 

ACCEPT ' ENTER YOUR CHOICE (1-10) FROM ABOVE: ' TO choice 

DO CASE 


CASE choice = "1" 
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USE U PROC S 
MODIFY STRUCTURE 
CASE choice = "2" 
USE S PROC P 
MODIFY STRUCTURE 
CASE choice = "3"! 
USE P_PROC_F 
MODIFY STRUCTURE 
CASE choice = "4!" 
USE P_PROC_R 
MODIFY STRUCTURE 
CASE choice = "5" 
USE P PROC E 
MODIFY STRUCTURE 
CASE choice = "6" 
USE S CONT P 
MODIFY STRUCTURE 
CASE choice = 07" 
USE P_CONT_M 
MODIFY STRUCTURE 
CASE choice = "8!" 
USE F_CONT_R 
MODIFY STRUCTURE 
CASE choice = "9! 
USE R CONT E 
MODIFY STRUCTURE 
CASE choice = "10" 
USE U RESP S 
MODIFY STRUCTURE 
CASE choice = "II" 
USE U_RESP_F 
MODIFY STRUCTURE 
CASE choice = 2" 
USE P PROD D 
MODIFY STRUCTURE 
CASE choice =s 
RETURN 

CASE choice = "14" 
RETURN TO MASTER 
OTHERWISE 

CLEAR 

@ 1,2) SAY “choice 
© 1,28 SAY "IS NOT A VALID CHOICE" 
@ 2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 14 ONLY" 
@ 3,20 SAY "PRESS RETURN TO TRY AGAIN!" 
ACCEPT TO hold 
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ENDCASE 
ENDDO 
RETURN 
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150000.prg 
MODULE NAME: 1.5.0.0.0.0 
INPUT FILES: NONE 
OUTPUT FILES: NONE 
ROUTINES THAT CALL THE MODLUE: MAIN 
ROUTINES THAT THE MODULE CALLS: MAIN. 
LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 
t: REPRESTENTS NO VALUE AI SEBE. 
hold: USED TO STOP ACTION FOR USER DECISION: 
DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 
THIS PROGRAM ALLOWS FOR THE THE SELECTION OF WHICH TYPE OF 
SCHEMA WILL BE OUTPUT. 


^ ox x o ob ox ow db x ob boob b ow * 


do while .t 

CLEAR 

a O0.1/5AV 01.5.0,0.0,.0% 

© 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@ 3,34 SAY "SCHEMA OUTPUT" 

@ 6 22 SAY F) ENTITY" 

@ 8 22 SAY "2) RELATIONSHIP" 

© 10,22 SAY "3) RETURN TO MAIN MENU" 

@ 11,22 SAY m n 

ACCEPT ' ENTER YOUR CHOICE (1-3) FROM ABOVE: 'TO choice 
DO CASE 

CASE choice = "1" 

do 151000 

CASE choice = "2! 

DO 152000 


CASE choice = "3" 

RETURN TO MASTER 

OTHERWISE : 

CLEAR 

© 2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 
a 3,20 SAY "PRESS RETURN TO TRY AGAIN!" 

ACCEPT TO hold 

ENDCASE 

ENDDO 

RETURN 
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121000.PRG 

MODULE NAME: 1.5.1.0.0.0 

ROUTINES THAT CALL THE MODLUE: 1.5.0.0.0.0 

ROUTINES THAT THE MODULE CALLS:1.5.0.0.0.0, 1.5.1.1.0.0 MAIN 

LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 
t: REPRESTENTS NO VALUE AT ALL. 
hold: USED TO STOP ACTION FOR USER DECISION. 

INPUT FILES: MEM VAR. 

OUTPUT FILES: MEM VAR. 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 

USED IN THE QUERY. 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF ENTITY RELATION 

TO OUTPUT. 


*+ ob ob ob ob ob ob ob Ob ob ob ob ob ob ob o 


SET EXACT ON 
set color te: 0/3,3 
set talk off 


CLEAR 

do while .t. 

ERASE mem var.mem 

CLEAR 

(A SA 5.1.0. 0.0" 

(a 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

(0192) SAY C ENTITY SCHEMA OUTPUT" i 
615 SAY "1) USER 6) EME) 

08 [5 SAY 12) SYSTEM 7) RECORD" 

[1500-15 SAY '"3) PROGRAM 8) ELEMENT 

@ 12,15 SAY "4) MODULE 9) RETURN TO PREVIOUS MENU" 
© 14,15 SAY "5) DOCUMENT 10) RETURN TO MAIN MENU" 

B 15.1 SAY " n t 
ACCEPT! ENTER YOUR CHOICE (1-10) FROM ABOVE: 'TO choice 

DO CASE 


TASEachoice = "1" 

store 'USER' to choice 
save to mem_var 

do 151100 

CASE choice = "2" 

store 'SYSTEM' to choice 
save to mem_var 

DO 151100 

CASE choice = "3" 

store 'PROGRAM' to choice 
save to mem var 
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DOM 0 

CASE choice = "4" 

store 'MODULE' to choice 
save to mem_var 

DO 151100 

CASE choice = "5" 

store 'DOCUMENT' to cholce 
save to mem var 

DO 151100 

CASE choice = "6" 

Store 'FILE' to choice 
save to mem_var 

DO 151100 

CASE choice = "7" 

store 'RECORD' to choice 
save to mem var 

DO 151100 

CASE choice = "3! 

store 'ELEMENT' to choice 
save to mem var 

DO 151100 

CASE choice = "9" 

RETURN 

CASE choice = "10" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

@ 1,23 SAY choice 

G 1,31 SAY "IS NOT A VALIDECHOTCEM 
© 2,18 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 10 ONLY" 
@ 3,18 SAY "PRESS RETURN TO TRY AGAIN!" 
ACCEPT TO hold 

ENDCASE 

ENDDO 

RETURN 
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151100.PRG 
MODULE NAME: 1.5.1.1.0.0 
INPUT FILES: NONE 
OUTPUT FILES: NONE 
RODEUNESSTNAT CALL TRE MODLUE: 1.5.1.0.0.0 
ROUTINES THAT. THE MODULE CALLS:1.5.1.0.0.0 
LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 
t: REPRESTENTS NO VALUE AT ALL. 
hold: USED TO STOP ACTION FOR USER DECISION. 
count: KEEPS TRACK OF ACCOUNT NUMBERS. 
operon- USED TO SELECT PRINEER OR SCREEN. 
INPUT FILES: MEM VAR. 
OUTPUT FILES: MEM VAR. 
ELMSGEHODUEESADEONSPHE USER TO CHOOSE WHICH TYPE OE RELATIONSHIP WILL BE 
USED IN IHE QUERY. 
DESIGNED BY: ROBERT A. KIRSCH II 
WRITTEN BY: ROBERT A. KIRSCH II 
BASIC FUNCTION OF MODULE: 
115 NOPUĽE AĽLĽOW TE USER TO CHOOSE WHETHER THE OUTPUT WILL BE 
DISPLAYED ON THE SCREEN OR PRINTED. 


+ * *+ HH HH ob o» ok ob * ob ok * + %* * %* ok o 


RESTORE FROM mem var 
SMORE O TO rec num, stop 
CLEAR 

STORE .t. TO TRUE 

do while TRUE 

CLEAR 

EE SAV 0]. 5.1.1.0.0"' 
RESTORE FROM mem var 


@ 2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@ 4,29 SAY "ENTITY SCHEMA OUTPUT" 

Cono Spa M ]]SIED BELOW ARE THE CHOICES FOR HOW" 

@ 9,23 SAY "YOU CAN HAVE THE RELATION" 

BAS 50, SAY CHOICE 

@ 10 23 SAY "DISPLAYED," 

0212728 SAY "1) SCREEN OUTPUT" 

© 14,28 SAY "2) PRINTER OUPUT" 

© 16,28 SAY "3) RETURN TO PREVIOUS MENU" 

GONI SAY " U 

ACCEPT! ENTER YOUR CHOICE (1-3) FROM ABOVE 'TO option 


ERASE mem var .mem 
SAVE TO mem var 


DO CASE 

gASE option — "1! 

DO CASE 

CASE CHOICE = 'USER' 
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DO. 151110 
CASE choice 
DO 151110 
CASE CHOICE 
DO 151110 
CASE choice 
DO 151110 
CASE CHOICE 
DO 151110 
CASE choice 
DO 151110 
CASE CHOICE 
BO 151110 
CASE choice 
DO 151110 
ENDCASE 
CASE option 
DO CASE 
CASE CHOICE 
DO 151120 
CASE choice 
DO 151120 
CASE CHOICE 
DO 151120 
CASE choice 
DO 151120 
CASE CHOICE 
DO 151120 
CASE choice 
DO 151120 
CASE CHOICE 
DO 151120 
CASE choice 
DORIĘLIZO 
ENDCASE 
CASE option 
RETURN 
OTHERWISE 
CLEAR 


SYSTEM: 

" PROGRAM" 
"MODULE" 
"DOUCMENT* 
EILE: 

' RECORD ' 


"ELEMENT" 


121 
"USER" 
SYSTEM" 
"PROGRAM! 
"MODULE ' 
"DOCUMENT" 
"FILE! 
"RECORD! 


"ELEMENT" 


@ 0,27 SAY option 
@ 0,34 SAY "IS NOT A VALID CHOICE" 
@ 1,26 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 


WAIT TO stop 


ENDCASE 
ENDDO 
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151240 2PRG 

NEDULERNAME: 1.5.1.1.1.0 

ROUTINES THAT CALL THE MODLUE: 1. 

POENTINES IRAT THE MODULE CALLS:1. 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MORE TED DELETED FROM OR OUTPUT. 


O 
SRR MOCY 


count HET O EE: TRACK OF THE RECORD NUMBER BEING DISPLAYED. 

stop USES TOP ACTION FOR USER DECISION. 

t : REPRESTENTS THE BOOLEAN FALUE TRUE IS USED TO CREATE A CONTINUES 
LOOP. 


NEUF FILES: MEM VAR. 

OUTPUT FILES: MEM VAR. 

THis MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 
USED IN THE QUERY. 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE WILL DISPLAY ON IHE SCREEN ENIITY RELATION SCHEMA. 


EXACT ON 


setaeGalor"to"0/3, 3 
set talk off 

set menu on 

SET EXACT ON 

RESTORE FROM mem var 


CLEAR 

A SAY F]1.5.1.1.1.0" 

© 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
o O ENITIY SCHEMA SCREEN OUTPUT" 
SY THIS MODULE WILL DISPLAY" 

© 5,48 SAY choice : 

© 7,22 SAY "IF YOU DO NOT WISH TO DISPLAY" 
emcee eons Tis SCHEMA, TYPE 'O' TO" 
11.22 SAY RETURN TO THE PREVIOUS MENU." 
WAIT TO stop 

DO CASE 

CASE stop = '0' 

RETURN 

OTHERWISE 

ENDCASE 


Creoles ny ele 5 31.1 .1.0" 

@ 2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@4,30 SAY "RELATION SCHEMA FOR"! 

@ 6,37 SAY choice 
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2 9,1 uu 

DO CASE 

CASE choice = 'USER' 
CLEAR 

USE USER 

DISPLAY STRUCTURE 
WAIT TO stop 

RETURN 

CASE choice = "SYSTEM! 
CLEAR 

USE- SYSTEM 

DISPLAY STRUCTURE 
WAIT TO stop 

RETURN 

CASE choice = 'PROGRAM' 
CLEAR 

USE PROGRAM 

DISPALY STRUCTURE 
WAIT TO stop 

RETURN 

CASE choice = 'MODULE' 
CLEAR 

USE MODULE 

DISPLAY STRUCTURE 
WAIT TO stop 

RETURN 

CASE choice = 'DOCUMENT' 
CLEAR 

USE DOCUMENT 

DISPLAY STRUCTURE 
WAIT TO stop 

RETURN 

CASE choice - 'FILE' 
CLEAR 

USE EILE 

DISPLAY STRUCTURE 
WAIT TO stop 

RETURN 

CASE choice = 'RECORD' 
CLEAR 

USE RECORD 

DISPALY STRUCTURE 
WAIT TO stop 

RETURN 

CASE choice = "ELEMENT! 
CLEAR 
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USE ELEMENT 
DISPLAY STRUCTURE 
WALT TO stop 
RETURN 

ENDCASE 
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151120.PRG 

MODULE NAME: L5 11.20 

ROUTINES THAT CALL THE MODLUE: 1.5.1.1 0 0 

ROUTINES THAT THE MODULE CALLS:1.5.1.1.0.0 

LOCAL VARIABLES USED: 

choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 
CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM (ORGOUTEUT: 

count : USED TO KEEP” TRACK OF "TRE" RECORD NUMBER BETNG LDISELA EL: 

hold : USED TO STOP ACTION FOR USER DECISION. 

option : CONTAINS THE USER'S CHOICE ON WHETHER TO OUTPUT TO THE SCREEN 
OR INE PRINTER: 


Ë : REPRESTENTS THE BOOLEAN FALUE TRUE IS USED TO CREATE A CONTINUES 
LOOP. 
INPUT FILES: MEM VAR, USER, SYSTEM, PROGRAM, MODULE, DOCUMENT, FILE, RECORDS 
ELEMENT. 
OUTPUT FILES: MEM VAR USER, SYSTEM, PROGRAM, MODULE, DOCUMENT, FILE, RECORDER 
ELEMENT. 


IHIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 
USED IN THE QUERY. : 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN) BY: ROBERT Ae KIKSCH II 

BASIC FUNCTION OF MODULE : 

THIS MODULE WILL OUTPUT THE USER, SYSTEM, PROGRAM AND MODULE 

RELATION FILES TO THE PRINTER. 


EXACT ON 


set color to-0/3 3 

set talk off 

se nenion 

SET EXACT ON 

RESTORE FROM mem var 
STORE 0 TO ree num, stop 
CLEAR 


fa) (a) (e) (po (©) A A A A (po fp) 


0,1 SAY "IL-5 E 2.0" 

1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
3,27 SAY "ENTITY SCHEMA PRINTER OUTPUT" 
5,23 SAY "THIS MODULE WILL PRINT" 

5,47 SAY choice 

7,23 SAY "PLEASE INSURE THAT YOUR PRINTER" 
8,23 SAY "IS TURNED ON AND IN THE ONLINE" 
9,23 SAY "MODE" 

11,23 SAY "IE YOU DO NOT WISH TO PRINT" 
12,23 SAY "TIHISSSGHEMA TYPE CO STO 

13,23 SAY "RETURN TO THE PREVIOUS MENU" 


WAIT TO stop 
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DO CASE 

CASE stop = 'O' 

RETURN 

OTHERWISE 

ENDCASE 

SET DEVICE TO PRINT 

SET CONSOLE OFF 

ll] A MN] 5.1.1.2.0" 

@ 2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@4,31 SAY "RELATION SCHEMA FOR"! 
@ 6,35 SAY choice 

C sa" on 

DO CASE 

CASE choice = 'USER' 

USE USER 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'SYSTEM' 

USE SYSTEM 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'PROGRAM' 
USE PROGRAM 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'MODULE' 

USE MODULE 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'DOCUMENT' 
USE DOCUMENT 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'FILE' 

USE FILE 

DISPLAY STRUCTURE TO PRINT 
CASE choice — "RECORD! 

USE RECORD 

DISPLAY STRUCTURE TO PRINT 
CASE choice — "ELEMENT! 
USE ELEMENT 

DISPLAY STRUCTURE TO PRINT 
ENDCASE 

SET DEVICE TO SCREEN 

SET CONSOLE ON 

RETURN 
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152000.PRG 

MODULE NAME: 1.5.2.0.0.0 

ROUTINES THAT CALL THE MODLUE: 1.1.0 07070 
ROUTINES THAT THE MODULE CALLS:TBD, MAIN 


LOCAL VARIABLES USED: 
choice : CONTAINS THE NUMBER OF ACTION SELECTED. MAY ALSO CONTAIN THE 


CHARACTER STRING THAT IDENTIFIES THE RELATION BEING ADDED TO, 
MODIFIED, DELETED FROM I OR OUR (JT; 


hold : USED TO STOP ACTION FOR USER SEECISION: 

t : REPRESTENTS THE BOOLEAN FALUE TRUE IS USED TO CREATE A CONTINUES 
DOOR 

title : CONTAINS THE CHARACTER STRING THAT DESCRIBES THESRECATITON HTE 


BEING ADDED TO, DELETED FROM OR OUTPUT. 
[INPUT FILES: MEM_VAR. 
OUTPUT FILES :THENT VAR: 
THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 
USED IN THE QUERY: 
DESIGNED BY ROPERI A. 1155601 vf 
WRITTEN BY: ROBERT A. KIRSCH TI 
BASIC FUNCTION OF MODULE: 
THIS MODULE ALLOW THE USER ITO CHOOSE WHICH RELATIONSHIP (HE WOULI 
LIKE TO DISPLAY THE SCHEMA OF. 


SET EXACT ON 
set color to 0/3,3 i 
set talk off 


CLEAR 

do while .t. 

ERASE mem_var.mem 

CLEAR 

@ 0,1 SAY 75225000" 

© 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 

@ 3,27 SAY "RELATIONSHIP SCHEMA OUTPUT" 

@ 5.9 sAY i) USER CONTAINS SYSTEM 8) FILE CONTAINS RECH 
@ 5,64 SAY "ORDS" 

2 7 9 SAY EUZ) SYSTEM CONTAINS PROGRAM 9) RECORD CONTAINS E" 
@ 7,64 SAY "LEMENT" 

@ 9 9 SAY 03) PROGRAH PROCESSES FILE 10) USER RESPONSIBLE! 
© 9,64 SAY "FOR SYSTEM" 

© 11,9 SAY "4) PROGRAM PROCESSES RECORD 11) USER RESPONSIBLE" 
@ 11,64 SAY "FOR FILE" 

a 13 9 SAV) PROGRAM PROCESSES ELEMENT 12) PROGRAM PRODUCES" 
@ 13,64 SAY "DOCUMENT" 

@15,9 SAY "6) SYSTEM CONTAINS PROGRAM 13) RETURN TO PREVIOU" 
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a 15,64 SAY "S MENU" 

@ 17,9 SAY "7) PROGRAM CONTAINS MODULE 14) RETURN TO MAIN ME" 
@ 17,64 SAY "NU" 

@ 18722 SAY "eo! 

HGCCHET © ENTER YOUR CHOICE (1-14) FROM ABOVE:'TO choice 
DO CASE 

CASE choice = "1" 

store 'U PROC S' to choice 

Store ‘USER CONTAINS SYSTEM” FO title 
save to mem_var 

ce 152100 

CASE choice = "2" 

store 'S PROC P! to choice 

store 'SYSTEM CONTAINS PROGRAM! TO title 
save to mem var 

do 152100 

CASE choice = "3" 

Stare 'P PROC F' to choice 

store 'PROGRAM PROCESSES FILE! TO title 
save to mem var 

do 152100 

CASE choice = "4" 

store 'P PROC R' to choice 

store 'PROGRAM PROCESSES RECORD' TO title 
save to mem_var 

do 152100 

GASE choice = "5! 

Store 'P PROC E' to choice 

store 'PROGRAM PROCESSES ELEMENT' TO title 
save to mem_var 

do 152100 

GRSE choice = "6" 

Store "S (CONTI P“ to choice 

store "SYSTEM CONTAINS PROGRAM!" TO title 
save to mem var 

do 152100 

CASE choice = "7" 

Store 'P CONT M"! to choice 

store 'PROGRAM CONTAINS MODULE' TO title 
save to mem var 

do 152100 

CASE choice = "8! 

store 'F CONT R' to choice 

store 'FILE CONTAINS RECORD' TO title 
save to mem var 

do 152100 
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CASE choice = "9! 

store 'R CONT E' to choice 

store 'RECORD CONTAINS ELEMENT' TO title 
save to mem var 

do 152100 

CASE choice = "10" 

store 'U RESP S' to choice 

store 'USER RESPONSIBLE FOR SYSTEM' TO title 
save to mem var 

do 152100 

CASE choice — “500 

store "U RESP F' to choice 

store 'USER RESPONSIBLE FOR FILE' TO title 
save to mem var 

do 152100 

CASE choice = "12" 

store 'P PROD D' to choice 

store 'PROGRAM PRODUCES DOCUMENT' TO title 
save to mem var 

do 152100 

CASE choice 2 1730 

RETURN 

CASE choice = "14" 

RETURN TO MASTER 

OTHERWISE 

CLEAR 

@ 1,21 SAY choice 

@ 1,28 SAY "IS NOT A VALID CHOMCEM 

(8 2,20 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 14 ONLY" 
@ 3,20 SAY "PRESS RETURN TO TRY AGAIN!" 
ACCEPT TO hold 

ENDCASE 

ENDDO 

RETURN 
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152100.PRG 

MODUPE NAME: 1.5.2.1.0.0 

COUMINES THAT CALL THE MODLUE: 1.5.2.0.0.0 

ROUDINES THAT THE MODULE CALLS:1.5.2.0.0.0 

LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 
C: REPRESTENTS NO VALUE AT ALL: 
hold: USED TO STOP ACTION FOR USER DECISION. 
count: KEEPS TRACK OF ACCOUNT NUMBERS. 
option: 

INPUT FILES: MEM VAR. 

CUDEUT FILES: MEM VAR. 

THIS MODULE ALLOW THE USER TO CHOOSE WHICH TYPE OF RELATIONSHIP WILL BE 

USED IN THE QUERY. 

BESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN®S BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE ALLOW THE USER TO CHOOSE WHETHER THE OUTPUT WILL BE 

DISPLAYED ON THE SCREEN OR PRINTED. 


A ob Ob Ob Ob ob Ob Ob Ob Ob Ob ob ob ob o ob ok * 


RESTORE FROM mem var 
STORE O TO rec num, stop 
CLEAR 

STORE .t. TO TRUE 

do while TRUE 

CLEAR 

pax Say LS 2, 1.0.0” 
RESTORE FROM mem var 


© 2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
QA 4,22 SAY " RECATTONSHIP SCHEMA OUTPUT" 

@ 8,23 SAY "LISTED BELOW ARE THE CHOICES FOR" 

© 9,23 SAY "HOW YOU CAN HAVE THE SCHEMA FOR" 

@ 10,24 SAY TITLE 

011-2) SAY DISPLAYED." 

@ 13,28 SAY "1) “SCREEN OUTPUT" 

© 15,28 SAY "2) PRINTER OUPUT" 

© 17,28 SAY "3) RETURN TO PREVIOUS MENU" 

@ 18,1 SAY U 

ACCEPT! ENTER YOUR CHOICE (1-3) FROM ABOVE 'TO option 


ERASE mem_var.mem 
SAVE TO mem_var 
DO CASE 
CASE option 
DO CASE 
COS CHOICE = U PROC S" 
DO 152110 

CASE choice = 'S_PROC_P' 


DI 
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DO 152110 
CASE CHOICE 
DO 152110 
CASE choice 
DO 152110 
CASE CHOICE 
DO 152110 
CASE choice 
pown5219]9 
CASE CHOICE 
DO 152110 
CASE choice 
DO 152110 
CASE CHOICE 
DOS ZO 
CASE choice 
DO. 152110 
CASE CHONGE 
DO 152110 
CASE choice 
DO 152110 
ENDCASE 
CASE option 
DO CASE 
CASE CHOICE 
DO 152120 
CASE choice 
DO 152120 
CASE CHOICE 
DO 152120 
CASE choice 
DO 152120 
CASE CHOICE 
DO 152120 
CASE choice 
DO 152120 
CASE CHOICE 
DO 152124 
CASE choice 
DO 152120 
CASE CHOTCE 
Do 152120 
CASE choice 
DO 152120 
CASE CHOICE 
DO 152120 


'P PROC F' 
'P PROC R' 
'P PROC E' 
'S CONT P' 
'P CONT M' 
'F CONT R' 
'R CONT E' 
'U RESP S' 
'U RESP F' 


'P PROD D' 


12! 
'U PROC S' 
'S PROC P' 
'P PROC F' 
'P PROC R' 
'P PROC E' 
'S CONT P' 
'P CONT M' 
'F CONT R' 
'R CONT E' 
'U RESP S' 


'U RESP F' 
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CASE choice 
DO 152120 
ENDCASE 
CASE option 
RETURN 
OTHERWISE 
CLEAR 

© 0,27 SAY option 

@ 0,34 SAY "IS NOT A VALID CHOICE" 

(© 1,26 SAY "PLEASE ENTER VALUES BETWEEN 1 AND 3 ONLY" 
@ 2,26 SAY "PRESS RETURN AND TRY AGAIN!" 

ACCEPT TO hold 

ENDCASE 

ENDDO 


'P PROD D' 


3! 
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152110.PRG 

MODULE NAME: 1.5.2.1.1.0 

ROUTINES THAT CALL THE MODLUE: 1.5.2.1.0.0 

ROUTINES THAT THE MODULE CALLS:1.5.2.1.0.0 

LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

hold: USED TO STOP ACTION FOR USER DECISION. 

INPUT FILES: MEM VAR U CONTS, U CONT S, U CONT P, P PROC F, P PROC R, 
P PROC R. P PROC E. S CONT P, P CONT M, F CONT R, R CONT E, 
U RESP S, U RESP F, P PRED D. 

OUTPUT FILES: MEM VAR 
U CONTS, U CONT S, U CONT P, P PROC F, P PROC R, 
P PROC R. P PROC E. S CONT P, P CONT M, F CONT R, R CONT E, 
U RESP S, U RESP F, P PRED D. 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE WILL DISPLAY ON THE RELATIONSHIP SCHEMAS 


Ó— ob Ob Ob Ob Ob Ob Ob Ob Ob Ob Ob ob % % % Ob * 


RESTORE FROM mem, var 

CLEAR 

@ 0 SAY "Liza boa ON 

@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@ 3,25 SAY “RELATIONSHIP SCHEMA SCREEN OUTPUT" 

@ 5,22 SAY "THIS MODULE WILL DISELAY 

@ 7,23 SAY TITLE 

@ 9,22 SAY "IF YOU DO NOT WISH TO DISPLAY" 

@ 10,22 SAY "THIS SCHEHA TYPE P O pO i 
@ 11,22 SAY "RETURN TO THE PREVIOUS MENU.“ 

WAIT TO stop 

DO CASE 

CASE stop = "0! 

RETURN 

OTHERWISE 

ENDCASE 

CLEAR 

@ 0; 1 SAY "1.5210 

(A 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
© 3,28 SAY "RELATIONSHIP SCHEMA FOR" 

@ 5,27 SAY title 

@ J l SAY u Ú 

DO CASE 

CASE choice = 'U PROC S' 

USE U PROG S 

DISPLAY STRUCTURE 

WAIT TO hold 

RETURN 
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CASE choice = 'S PROC P' 


USE S PROC P 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 


CASE choice = 'P PROC F! 


USE P PROC F 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 


CASE choice = 'P PROC R' 


USE P PROC R 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 


CASE choice = 'P PROC E' 


USE P PROC E 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 


CASE choice = 'S CONT P' 


USE S CONT P 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 


CASE choice - 'P CONT M' 


USE P CONT M 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 


CASE choice = !'F CONT R 


USE F CONT R 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 


CASE choice - 'R CONT E' 


USE R CONT E 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 


CASE choice = "U RESP S! 


USE U RESP S 
DISPLAY STRUCTURE 
WAIT TO hold 
RETURN 


CASE choice = 'U RESP F' 
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USE U RESP F 
DISPLAY STRUCTURE 

WAIT TO hold 

RETURN 

CASE choice = 'P PROD D' 
USE P PROD D 

DISPLAY STRUCTURE 

WAIT TO hold 

RETURN 
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152120.PRG 

MODULE NAME: 1.5.2.1.2.0 

ROUTINES THAT CALL THE MODLUE: 1.5.2.1.0.0 

ROUTINES THAT THE MODULE CALLS:1.5.2.1.0.0 

LOCAL VARIABLES USED: choice: CONTAINS THE NUMBER OF ACTION SELECTED. 

hold: USED TO STOP ACTION FOR USER DECISION. 

INPUT FILES: MEM_VAR U_CONTS, U_CONT_S, U CONT P, P PROC F, P PROC R, 
P PROC R. P PROC E. S CONT P, P CONT M, F CONT R, R CONT E, 
U RESP S, U RESP F, P PROD D. 

OUTPUT FILES: MEM VAR 
U CONTS, U CONT S, U CONT P, P PROC F, P PROC R, 
P PROC R. P PROC E. S CONT P, P CONT M, F CONT R, R CONT E, 
U RESP S, U RESP. F, P PROD D. 

DESIGNED BY: ROBERT A. KIRSCH II 

WRITTEN BY: ROBERT A. KIRSCH II 

BASIC FUNCTION OF MODULE: 

THIS MODULE WILL OUTPUT THE USER, SYSTEM, PROGRAM AND MODULE 

RELATION FILES TO THE PRINTER. 


aoo ox A +f + +f +f +f + +f +f * + + + + + * 


RESTORESWROM mem var 
STORE O TO rec num, stop 
CLEAR 


CROM SA 5. 1.1.2.0" 

@ 1,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
@ 3,27 SAY "RELATIONSHIP PRINTER OUTPUT" 

@ 6,23 SAY "THIS MODULE WILL PRINT" 

@ 8,24 SAY TITLE l 
@ 10,23 SAY "PLEASE INSURE THAT YOUR PRINTER"! 

@ 11,23 SAY "IS TURNED ON AND IN THE ONLINE" 

(1202. 239 AY "MODE! 

IT 5AY BIR YOU DO NOT WISH TO PRINT" 

Oo HITS RELATION, TYPE "0" TO" 

@ 16,23 SAY "RETURN TO THE PREVIOUS MENU" 

WAIT TO stop 

DO CASE 

CASE stop = 'O' 

RETURN 

OTHERWISE 

ENDCASE 


SEPSPEVESESTO PRINT 

SET CONSOLE OFF 

QE LIES I.5.Ll.1.2.0" 

@ 2,22 SAY "INFORMATION RESOURCE DICTIONARY SYSTEM" 
G 4,36 SAY "SCHEMA FOR" 

a 6,23 SAY title 

@ S 1 Say © 
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DO CASE 

CASE choice = 'U PROC S' 
USE U PROC S 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'S PROC P' 
USE S PROC P 

DISPLAY STRUCTURE TO PRINE 
CASE choice = 'P PROC F' 
USE P PROC F 

DISPLAY STRUCTURE. LOREM 
CASE choice = 'P_PROC_R' 
USE P PROC R 

DISPLAY STRUCTURE JO PRINI 
CASE choice = 'P PROC E' 
USE P PROC E 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'S CONT P' 
USE S CONT P 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'P CONT M' 
USE P_CONT_M 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'F_CONT_R'! 
USE F_CONT_R 

DISPLAY STRUCTURE TO PRINT 
CASE choice = 'R CONT E' 
USE R CONT E 

DISPĚAY STRUCTURE EO ER 
CASE choice = 'U RESP S' 
USE U RESP S 

DISPLAY STRUCTURE TO"PRINE 
CASE choice = 'U RESP F' 
USE UNE SEE 

DISPLAY STRUCTURESTOSERINT 
CASE choice = 'P PROD D' 
USE P PROB D 

DISPLAY STRUCTURE TO PRINT 
ENDCASE 

SET DEVICE TOT SCREEN 

SET CONSOLE ON 

RETURN 
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